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Editorial 



Em varias ocasioes ja deixamos bem 
clam que o enfoque de nossa publicacao 4 
muito mais didatico que jorna/istico. Que- 
remos, d Idgico, que o usua'rio do TK seja 
algudm bem informado, mas tambdm, e 
principalmente, queremos que eie aprenda 
a tirar o maximo proveito de seu equipa- 
mento. O micro processador Z80, que 4 o 
coracao do TK, tern fun goes apenas parcial- 
mente aproveitadas por quern programa em 
BASIC. Por isso entramos com esse nume- 
ro, no uni verso do ASSEMBLY (incidentai- 
mente, "ASSEMBLER" nao e uma lingua- 
gem: e" urn programa que permile elaborar 
programas em ASSEMBL Yj. 

Como a linguagem de maquina 4 de ar- 
duo aprendizado, a nossa preocupacao di- 
da'tica nos diz para nao correr. Por isso, en- 
quanto o curso de ASSEMBL Y do Flavio 
Rossini avanca, os artigos da revisra neste 
tema se limitarao. por enquanto, a ensinar 
o leitor a digita-los e utiliza-los sem entrar 
em detalhes sobre a linguagem em si. 

Quanto ao crescimento (e nao apenas 
fi'sico) de nossa revista, este numero o ja 
fa/a por si. So nos resta agradecer a avalan- 
che de novos assinantes que apesar de al- 
guns tropecos e atrasos iniciais (que vamos 
levar algum tempo para consertar) confia- 
ram em nos e permit t ram a consolidagao 
deste empreendimento que abre urn canal 
de dialogo, informacao e aprendizado para 
a comunidade cada vez mais vasta dos usua- 
rios do TK. 
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CARTA DOS 
LEITORES 




Cams amigos da Micromega, 

Fiquei muito contente com o tancamento da revista 
"Usuirios do TK". Era isso que faltava no mercado da 
informa'tica, uma revista dedicada somente para nds, que 
possui'mos urn TK. Gostei muito dessa promocao deas- 
sinatura, no qua/, ganhamos uma fita de programas 
"gratis". Desejo-lhes todo o sucesso, 

Gostaria que me enviassem maiores informacoes sobre 
o programs "Barao Vermelho", o qua/ nao rodou direi- 
to em meu TK. 

Luciano Chaves {Ftorianopolis — SC) 

Caro Luciano, 

Obrigado pelo incentivo. Com relacao ao programa 
"Barao Vermelho", que fez tanto sucesso que foi ate 
copiado por outra revista do ramo, ele provavelmente 
nao rodou direito no seu TK pois ele nao possui 
SLOW. Para eliminar este inconveniente voce deve inse- 
rir apos cada instrucao PRINT uma instrucao PAUSE 
30. Desta forma a tela ficara" piscando mas dara" para jo- 
gar. Se voce enviar o seu computador a f^brica da 
MICRODIGITAL, eles podem instalar o circuito SLOW 
para voce. Antes escreva uma carta para saber o custo. 

o 



Prezados Senhores, 

Ao folhear a revista MICROHOBBY, cujo primeiro 
exemplar recebi no dia 15/6, tive uma decepcao. 

Trata-se da falta da secao HOBBY indicada no exem- 
plar nQ como a secao que apresentara projetos eletro- 
nicos para serem executados por todos os leitores, que 
como eu tern a eletronica corno hobby. Nesta secao, de- 
veria cons tar as informacoes necessarias para a adapta- 
cao da funcao SLOW em nossos computadores. Che- 
guei a esta conclusao lendo o ultimo paragrafo do pro- 
grama Boliche editado no exemplar n9 0, que informava 
que o numero 1 da revista trazia os detaihes para acres- 
centar o S LOW em nossas maqutnas. 

Gostaria tamb4m que me fosse sanada uma duvida 
quanto ao recebimento da fita brinde, pois nao a recebi 
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juntamente com o exemplar n9 1. Pediria entao que me 
informassem quando sera feito o envio da referida fita. 
Quern tamb4m parabeniza-los pelo conteudo do n9 
1 que pecou somente pelo reduzido numero de paginas. 
Acho que seria de interesse de todos os leitores que a 
revista tivesse o numero de paginas ampliado, abrindo 
novas secoes, nao e'squecendo, portanto da secao 
HOBB Y prometida no exemplar n<? 0, que nao apareceu 
no n9 1 e que me parece nao aparecera no nP 2. 

Jose Daniel Oliveira Vigario 



Prezado Jos£ Daniel , 

Com relacao a fita brinde houve realmente um atraso, 
mot ivado por varias coisas. Uma delas foi um "grilo" re- 
lative ao TK85 que nos fez interromper a produgao. 
Posteriormente, ela foi retomada a todo vapor e voce ao 
ler estas linhas ja deve te-la recebido. 

Com relacao ao numero reduzido de paginas, a revista 
que voce tern em maos ja e uma resposta. 

A secao HOBBY logo sedesenvolvera" atodovapor.Rece- 
bemos de nossos correspondentes muitos projetos pa- 
ra "hobbystas" mas,tnfelizmente,nem sempre existem 
componentes nacionais disponi'veis. Entretanto estamos 
fazendo as devidas adaptacoes para futura publicacao. 

Com relacao ao SLOW, quando escrevemos ". . . co- 
mo fazer para acrescentar SLOW a sua rnaquina." esta- 
vamos pensando em dar uma relacao de oficinas aptasa 
fazer tal adaptapao. 

Tal relacao ainda nao foi publicada pois aguardamos 
respostas de uma serie de cartas que enviamos para le- 
vantar tal lista. 

Ficamos muito surpresos quando percebemos que al- 
guns leitores estavam esperando o circuito. 

Muito bem, agora vamos ter que montar uma materia 
a esse respeito. Ela, porem, so podera ser publicada se 
nao violar segredos industrials das duasfabricas brasilei- 
ras envolvidas. 

O 



Prezados Senhores, 

Antes de mats nada, os meus cumprimentos pelo lan- 
camento de MICROHOBBY. Sem duvida nenhuma, o 
TK £ o computador mais vendido devido ao baixo custo 
(em retacao aos outros micros existentes no mercado) e 
a sua grande capacidade de operacao. Desejo muito su- 
cesso a voces, uma vez que nos, usuarios do TK so temos 
a ganhar com isso. 

Agora vamos as duvidas, para as quais peco a atencao 
e eiucidacao de voces: 

1) Por que os "micros" nacionais sao muito mais cams 
do que os originais estrangeiros? Seria ta/vez abuso da 
reserva de mercado? 

2) No nQ da MICROHOBBY, secao "Programa do 
Mes", no programa BOLICHE, voces escreveram que no 
n9 t seria mostrado como acrescentar "SLOW" aos 
TK's que ainda nao o tivessem. Nao mostraram e nao 
comentaram nada a respeito. Entao pergunto: como fa- 
zer para acrescentar "SLOW" ao meu TK? 

3} Como explicar o desempenho do programa "DEMO- 
LI DOR", da MICROSOFT, num TK sem SLOW? Isto 
sempre me deixou bastante curhso. 

4) Cade a fita brinde? Nenhuma noti'cia sobre ela no 
n° 1. 

5) £ verdade que existem probiemas com o joystick e a 
printer do TK? 

Luis Henrique B. de Miranda — B. Horizonte — MG 



Prezado Luis Henrique, 

Obrigado pelos cumprimentos. Elucidando suas duvi- 
das pela ordem: 

1 ) Se voce f izer as contas pelo cambio real e nao oficial, 
vera que os micros nacionais nao sao tao mais cams, 
alem disso, voce deve saber que a "escala" de producao 
influi significativamente no custo. Brasil e um pais po- 
bre, com um povo pobre e poucos privilegiados podem 
se dar ao luxo de comprar um micro: o TK que e o "pro- 
letario" dos micros custa 3 salaries mfnimos. Enquanto 
que no Brasil o numero de micros que usam a I6gica 
SINCLAIR ainda esta longe de 50000, no mundo (Ingla- 
terra, Italia, Franca, Estados Unidos e Canada) temos 2 
milhoes. 

2) Veja a resposta ao Jose Daniel 

3) Passamos a pergunta para a secao DESGRILANDO 
(pag. 12). 

4) Veja Jose Daniel 

5) Os recentes "pacotes" fecharam a importacao de uma 
peca vital para a impressora do TK. Enquanto perdurar 
esta proibicao vamos ter que aguardar mais um pouco. 

Joystick nao tern probiemas. Quern pode apresen- 
t3r probiemas 4 um lote de maquinas que so funciona 



com joystick mediante a troca de alguns resistores. Se 

sua maquina tiver este problems fomos informados pela 

MICRODIG1TAL que ela faz o ajuste citado gratuita- 

mente, correndo por sua conta apenas as despesas de f re- 

te. Basta enviar sua maquina para a MICRODIGITAL, 

mesmo que ela \A esteja fora de garantia. 

O 



Cam Senhor Diretor, 

Tendo recebido o nQ 1 da revista MICROHOBBY, 
tomo a liberdade de escrever-ihe esta curta missiva, pelos 
fatos que passo a expor: 

1) Sou possuidor de micro NEZ-8000, que, tal como os 
primeiros TK82 fabricados, nao possui a modaiidade 
"SLOW". 

2} Assim, examinando o nQ da revista, resolvi assina- 
la, pois a pagina 6 (Programa BOLICHE) estava expres- 
samente dito que no nQ 1 constariam as informacoes de 
"como fazer para acrescentar o SLOW a miquina." 

3) Qua/ nao foi minha surpresa, ao verificar que no n9 
1 nao se fazia qualquer mencao a tal assunto. Ora, en- 
tendendo que varios dos assinantes dessa revista, que co- 
mo eu depositaram irrestrita confianca em sua publica- 
cao, (o que, c4 entre nos, trata-se de risco incalculavet, 
nos dias em que vivemos) sao possuidores do NEZ-8000, 
acredito que a pretencao de muitas respostas nao foi 
atendida. 

4) £ claro que se eu fosse adquirir um micro ho/e, opta- 
ria pelos fabricados pela MICRODIGITAL, recusando- 
me a adquirir qualquer produto da PROL0GICA. 

5} Assim, como tal nao ocorreu, solicito de V.Sa. que 
corri/a esta falha, publicando com urgencia o esquema 
do SLOW. 

Como sugestao proporia que pubficasse, tambem, es- 
quema para se adaptar um ou dois joysticks (afinai a 
MICRODIGITAL tern que vende-los, nao?} no 
NEZ-8000 ou TK82C e modificacao do fundo e caracte- 
res no video (de preto e branco, respectivamente no 
NEZ-8000 para branco e preto e vice-versa no TK82C). 

Sergio R.M. Ferreira -Santos/SP 



Caro Sergio 

Calma! A maioria de suas duvidas ja foi esclarecida na 
resposta a carta do Jose Daniel. Apenas queremos acres- 
centar duascoisas: 

1} Este tipo de cobranca e muito bom (mesmo que nos 
sejamos o alvo), pois o consumidor brasileiro nao esta 
acostumado a estrilar para fazer valer seus direitos. 

2) A MICROMEGA, que edita a revista MICROHOBBY 
nao e da MICRODIGITAL, apesar de manter um estrei- 
to relacionamento com esta firma, por estar publicando 
uma revista do interesse de seus clientes. teor de sua 
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carta sugere uma interdependencia que na realidade nao 
exists. De qualquer forma passamos uma c6pia de sua 
carta para a MICRODIGITAL, pois sua sugestao de 2 
joysticks & bem interessante. 

O 

Prezados Senhores, 

Com prazer, acuso o recebimento e agradeco o envio 
do nP 1 de MiCROHOBBY, a revista dos Usuarios do 
TK. 

Valeu a pena esperar. A revista esta sensacionaf em to- 
dos os aspectos. Uma curiosidade: alguSm da Equipe e 
professor? Por favor, nao estranhem a pergunta; e que 
eu sou, e a linguagem da Revista, tao dida'tica, precisa e 
bem humorada, me soou "a/go familiar". . . 

Assim sendo, somen te posso aplaudir com entusiasmo 
o surgimento desta publicacao, que tenho a certeza, 
muito viri acrescentar e a enriquecer tudo o que /a exis- 
te entre nos sobre Informatica. 

Gostaria de saber se ja estao disponiveis os livros 
anunciados e, se ja estiverem, seus precos e condicoes 
de compra. 

Aproveitando a ocasiao, desejo submeter a considera- 
cao de V. Sas. duas duvidas re/acionadas a programas: 

IJEm uma fita da Kristian chamada SPACE RAID, no- 
tei a presenca de uma instrucao REM enorme (toma 
quase a tela toda), cheia de caracteres (aparentementej 
sem sentido. que pode ser isto? 

'2) Outra fita, da MICROSOFT, chamada "Demolidor", 
apresenta problemas ao se tentar carrega-la: quase sem- 
pre, ao final do carregamento, a tela fica cheia de fistas 
irregufares ou se apaga, obrigando, em ambos os casos, 
a desligar momentaneamente o computador, para que 
as coisas voltem ao normal, isto e, retorne o K. Se pos- 
sfvel, gostaria de uma paiavrinha sobre isso, 

No mats, £ aguardar (ansiosamente) o n° 2 e reiterar 
meus mais entusiasticos votos de crescimento e pros- 
peridade para a Revista. 

Seja bem vinda, MiCROHOBBY\ 

Theodomiro Aguiar (Petropolis - RJ) 



Prezado Prof. Theodomiro, 

Realmente na equipe temos dois professores, o 
PIERLUIGI e o FLAVIO, ambos extremamente bem 
humorados (apesar das fitas-brinde} e estamos em vias 
de aumentar a equipe com mais urn. Isto nao e mera 
coincidencia ou uma especie de "m^fia pedagogica", 
mas faz parte da pr6pria f iloscfia desta publicagao:nos- 



sa finalidade nao e apenas "informar", mas principal- 
mente ensinar. Dai'o cunho maisdidatico que jomali'sti- 
co. Os livros anunciados estao em fase final de proces- 
samento gr^fico e brevemente serao lancados no merca- 
do. 

Com relagao as duvidas sobre programas: 

1 ) A gigantesca instrucao REM na fita da Kristian arma- 
zena uma sequencia de bytes que constitui uma subroti- 
na em linguagem de maquina. A leitura de"UFE" e 
"APAGANDO A TELA" publicados neste numeroescla- 
recerao melhor. 

2) A fita deve estar com defeito ou sofreu, apos sua pro- 
ducao, algum acidente magnetico. Escreva a MICRO- 
SOFT, informando-se sobre a possibilidade de troca. 

Finalmente, obrigado pelas boas-vindas. 

O 

Prezados Senhores, 

Nao gostei muito do 19 numero da revista MICRO- 
HOBBY. Achei-a muito pequena e tncompleta, apenas 
16 paginas. A secao de DICAS, a meu ver, estava fraca 
e nao achei nada sobre a secao HOBBY. Envio urn pro- 
grama de minha autoria na esperanca de que a revista 
melhore, principalmente que eta cresca no tamanho. 
Trata-se do conhecido "Jogo da Forca" e ocupa quase 
3 K bytes. Aproveitando esta envio algumas perguntas: 
A impressora usada pelo TK82C £ de boa qualidade? 
Ela imprime todo tipo de si'mbolos graficos? 
E/a usa papel especial? 
Como 4 feita a impressao? 
que significa eletro-sensfvel? 
A impressora necessita de interface? 
Hi necessidade de alguma modificacao no computador? 
Se houver quanto custa e quanto tempo leva? 

Fernando Araujo Lopes (Sao Paulo — SP) 



Caro Fernando, 

Como voce pode ver a revista ja cresceu bastante, gra- 
cas a pessoas como voce ou o Sergio que apesar de nao 
gostarem do comeco e nao conf iarem muito, nos deram 
uma forca e permit! ram que a revista melhorasse cada 
vez mais. 

Infelizmente nao podemos aproveitar o seu "Jogo da 
Forca", pois as gavetas da redacao transbordarn com os 
"Jogos da Forca" ja enviados. Queremos aproveitar a 
oportunidade para avisar o pessoal : 

Forca 
Senha 
Velha 
Invasores 

nao serao mais publicados, ta?! 

Respondendo a suas perguntas: 

A impressora usada pelo TK (por enquanto a versao 
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inglesa, enquanto a brasileira tiver dificuldades de im- 
portacao de peeas) 6 de boa qualidade, imprime todos os 
si'mbolos que aparecem na tela e algo mais (veja "GRA- 
FICOS EM ALTA RESOLUgAO no nP 2). papel 6 
especial: ele e revestido por uma fim'ssima camada meti- 
lica sobre urn fundo escuro. 

Urn estilete o percorre em aita velocidade. Como o 
papel e condutor de eletricidade, quando no estilete e 
aplicado uma tensao eletrica, dele salta uma faixa que 
faz o revestirnento metalico se evaporar num ponto. Sob 
este ponto aparece o fundo escuro. Todas asc6piasdos 
programas editados nesta revista sao tiradas numa im- 
pressora deste tipo. TK aceita esta impressora direta- 
mente na conexao da expansao de memoria. Como a co- 
nexao da impressora 4 do tipo macho de urn lado e fe- 
mea do outro, a expansao de mem6ria pode ser ligada 
ao computador simuitaneamente com a impressora. Ja o 
CP 200 e o NEZ8000 da PROLOGICA precisam de uma 
pequena adaptacao, pois em sua fabricagao foram utili- 
zados conectores traseiros incompati'veiscom osequipa- 
mentos SINCLAIR. 

Temos noti'ci3s, inclusive, que dao conta de uma prb- 

xima fabricacao de interfaces que permitirao conectar os 

TKs com as impressoras nacionais usando papel comum. 

Obviamente estas impressoras sao muito mais caras. ^ 

O 



Prezados Senhores, 

Meu nome 4 Marcelo Arouca Araujo e tenho 14 anos. 
Eu sou fa de eietronica e de computacao, set um pouco 
das duas. Quando comprei o meu computador, pensei 
em fazer um curso de BASIC, mas depots resolvi apren- 
der sozinho, apenas o/hando o manual que vem junto. 
Eu sei alguma coisa, mas isso nao 4 suficiente ainda para 
poder fazer programas compiicados, por isso eu mando 
para voces este programa simples. Com o tempo eu espe- 
ro melhorar e poder mandar programas a altura desta 
revista. 

Eu gostei muito da primeira aula e das D/CAS. Com a 
primeira aula da revista aprendi com mais detalhes o que 
euji sabia, mais ou menos. 

Q programa que mando para voces 4 muito famoso, 
chama-se Forca. 



Caro Marcelo, 

Se voce der uma lida nas outras cartas vera que nefo 
publicamos Jogo da Forca. Apesar disto ficaremos mui- 
to felizes em receber outras colaboracoes SU3S. Mesmo 
programas "simpies" podem ser muito uteis e neste caso 
serao impressos. Temos certeza, tamb^m, que logo logo 
voce estara desenvolvendo coisas em ni've! "profissio- 

nal". 

O 



Prezados Senhores, 

Tudo muito bem, tudo muito dtimo. Mas sera que 
nao esqueceram a/go? Se nao me engano, eu deveria re- 
ceber uma ou duas fitas justamente pe/o fato de ser as- 
sinante desta (bri/hante) revista. 

A propdsito: Seri que os senhores poder iam enviar 
maiores detalhes sobre "TIG-LOADER"? (pig. 11 - 
nQ 1), ou deveria esc rever para tal firma? 

Roberto Araujo (Rio de Janeiro - RJ) 



Caro Dr. Roberto, 

A f ita e s6 uma {com dois jogos) e ja foi enviada. Des- 
culpe pelo atraso. Com reiacao ao TIG-LOADER, aqui 
na redacao testamos um prot6tipo, mas nao temos maio- 
res detalhes t^cnicos ou eomerciais. Acho que a solucao 
e" escrever para a firma. 

Um abraco. 

O 



Caro Editor, 

Recebi meu 1Q numero da revista Microhobby e gos- 
tei muito. 

Aproveitei todos os programas, principalmente o utili- 
t&rio. Gostaria de sugerir que fosse este transformado 
em linguagem de miquina. 

Gostaria de saber em que livraria ou representante do 
TK, na regiao de Campinas, poder ia encontrar as novi- 
dades anunciadas na pagina 12. 

A unica coisa que me entristeceu ao receber este nu- 
mero foi a falta de tao decantada fita com osjogos, por 
isso, peco ao senhor a gentileza de enviar-me uma fita, 
pois nao gostaria de comecar mat a minha colecao. 

CISudio S. Tonhetta (Sumarg — SP) 



Prezado Claudio, 

Os livros anunciados serao lancados brevemente, pois 
estao na fase final de processamento. A fita ja" foi envia- 
da e com reiacao a transformagao do programa do 
BASIC para ASSEMBLY temos uma sugestao, Estude 
com cuidado as licoes que estamos publicando e logo 
voce estara em condipoes de fazer isto sozinho. Quan- 
do isto acontecer publicaremos seu programs com mui- 
to prazer (e muito orgulho). 
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MAIS TRADUgOES 
PARA O BASIC TK 




No niimero anterior de nossa revista falamos sabre a 
instrucao IF . . . THEN . . ELSE . . . , comum a varios 
computadores, mas que, por razoes construtivas, nao foi 
inclu fda no conjunto de instrugoes do TK. Todavia, com 
urn pouco de imaginacao, conseguimoscontornar o pro- 
blema. Sabemos que esta nao e" a unica instrucao que 
nao faz parte dos recursos do TK e de computadores si- 
milares. Alem disso, e comum em alguns computadores, 
como, por exemplo, no TRS-80, o uso de instrucoes 
IF . . . THEN . . . ELSE encadeadas, o que pode dificul- 
tar a traducao de urn programa para outro. 

Condicionais Encadeadas 

Chamamos de condicionais encadeadas duas ou mais 
instrucoes IF . . . THEN . . . ELSE . . . dispostas de tal 
forma que uma condicionat permite ou nao o acesso a 
uma outra condicional, com a seguinte estrutura: 

I F-) {condicao 1) THEN IF2 (condicao 2) 
THEN IF n (condicao n) THEN (funcao ou operacao 
n + 1) ELSEn (funcao ou operacao n) . . . ELSE 2 (fun- 
cao ou operacao 2) ELSE-i (funcao ou operacao 1 ). 



Por exemplo: 



10 IF X = THEN (F Y = THEN IF Z = 
THEN LET A = ELSE LET A = 1 ELSE LET B 
- 1 ELSE LET C = 1 



Este tipo de estrutura pode ser compreendido como 
uma operacao matematica com diversos n fveis de paren- 
teses. Assim, a primeira condicional IF "fecha" com a 
ultima condicional ELSE, a segunda com o penultimo, 
e assim por diante. 

Levando isso em consideracao, podemos "quebrar" 
esta linha de programa em tres partes: 



1)IF X= THEN 

2) 



ELSE LET C= 1 



IF Y = THEN 



ELSE LETB= 1 



IF Z = THEN LET A = ELSE LET A = 1 
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Se voce observar bem, a que isto pode significar e que 
podemos transformer esta linha de programa em outras 
tres, desde que consigamos preencher o espaco ern bran- 
co entre as palavras THEN e ELSE. 

Para preencher este espaco, devemos nos lembrar o 
que uma instrugao desta natureza faz. A primeira coisa 
que devemos levar em conta 6 que, nesta linha de pro- 
grama, se a condigao X = for satisfeita, a condigao 
Y = deve ser verificada. Do mesmo modo, se a condi- 
cao Y = for satisfeita, deve-se verificar a condigao 
Z-0. 

Ass)m, o que devemos fazer apos verificar uma dada 
condicao e verificar a condicao seguinte. Levando isso 
em conta, a linha de programa em questao pode ser rees- 
crita da seguinte forma: 



10 IF X = THEN GOTO 20 ELSE LET C = 1 
20 IF Y = THEN GOTO 30 ELSE LET B= 1 
30 IF Z = THEN LET A = ELSE LET A = 1 



40 . . . (sequencia do programa). 

Existe um pequeno problema, que deve ser contor- 
nado: ao completarmos uma linha em um programa em 
BASIC, o computador executara' imediatamente a linha 
seguinte. Entretanto, a linha seguinte cont6m uma com- 
paracao que s6 deve ser feita se e somente se a compa- 
racao anterior for verdadeira. Da forma em que se 
encontra a nossa solugao, se a primeira condigao for ver- 
dadeira, a segunda condigao e verificada. Se for falsa, C 
e tgualado a 1 e a segunda condigao e* verificada, coisa 
que nao queremos. Para que isso nao ocorra, devemos 
desviar da linha que contem a comparacao seguinte por 
meio de um desvio incondicional. Assim: 



10 IF X = THEN GOTO 20 ELSE LET C = 1 

1 5 GOTO 40 

20 IF Y = THEN GOTO 30 ELSE LET B = 1 

25 GOTO 40 

30 IF Z = THEN LET A = ELSE LET A = 1 



40 



(sequencia do programa} 



Resta mais um problema: a condicional ELSE. Para 
resolver este problema, recorreremos a uma das solugoes 
que indicamos no artigo que publicamos no numero an- 
terior desta revista. Assim, por exemplo, o trecho onde 
aparecem as linhas 10 e 1 5 f icara: 



10 IF X= THEN GOTO 20 
12 IF X<> THEN LETC= 1 
1 5 GOTO 40 

Da mesma forma, poderemos aplicar esta solugao para 
as outras linhas do programa, onde aparecem condicio- 
naisELSE. 



INPUT multiplo e com mensagens 

Algumas vezes encontramos, em alguns programas de- 
senvolvidos para outros computadores, INPUT em que 
sao pedidas mais de uma vari^vel e, aliSm de tudo, apare- 
ce uma mensagem qualquer, por exemplo: 

10 INPUT "ENTRE COM OS VALORES DE 
AEB",A,B 

Quando aparecer um INPUT com mensagens, o com- 
putador primeiro imprimira a mensagem e ficara aguar- 
dando a introdugao dos valores. No nosso exemplo, sao 
apenas dois valores, Devemos digitar o primeiro valor pe- 
dido, uma vfrgula e o segundo valor pedido, e, entao, 
digitar ENTER. 

No TK e em computadores semelhantes, tanto ha* 
mensagem como varias variaveis de entrada nao podem 
ser digitadas na mesma linha. A solugao e decompor es- 
ta instrugao em varias outras, levando em consideragao 
tambem que, numa instrugao INPUT, em alguns com- 
putadores diferentes do TK, uma vez digitada a tecla 
ENTER, o valor digitado e impresso imediatamente. 

Tendo isto em mente, podemos reescrever a linha em 
questao da seguinte maneira: 



2 PRINT "ENTRE COM OS VALORES DE 
AE B" 

3 INPUT A 

4 PRINT A 

5 INPUT B 
10 PRINT B 



Nem a disposigao das variaveis nem a mensagem preci- 
sam ser rejeitadas. melhor que devemos fazer eadap- 
tar o trecho do programa as nossas necessidades e com o 
nosso gosto. Assim, poderemos, por exemplo, dar a se- 
guinte forma ao trecho de programa em questao: 



10 PRINT "QUALO VALOR DE A?" 

20 INPUT A 

30 PRINT A 

40 PRINT "QUAL O VALOR DE B?"; 

50 INPUT B 

60 PRINT B 
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ou ainda; 



10 PRINT "A = 
20 INPUT A 
30 PRINT A 



ON A GOTO n9 de linha 1, n<? de linha 2, n9 de linha 3 
. . . n9 de linha n. 



A instrugao ON A GOTO tern como fungao enviar o 
programa para uma entre varias alternatives dacias por 
uma condigao, representada por uma variavel inteira, 
cujo nome 6 escrito por uma unica letra (por exemplo, 
K). Por exemplo, na linha de programa: 

10 ON C GOTO 100, 230, 350 

Se C for 1 , o computador vai executar a linha 1 00; se 
for 2, 230 e, se 3, 350. Se C for menor do que 1 ou 
maior do que n (no caso, 3), o programa vai para a linha 

seguinte. Os numeros de linha nao precisam estar em se- 
quencia. Assim: 

100 ON G GOTO 400, 1 0, 350 

Se G for 1 , o programa ira para a linha 400, se for 2, 
para linha 10ese for 3, para linha 350. 

Se voce quiser usar este recurso em seu TK voce po- 
dera usar um dos "macetes que mostraremos a seguir". 



19 caso: o programa original apresenta os numeros de 
linha apos o GOTO numa sequencia crescente de 
multiplos de um mesmo numero intetro. 

Suponha que o programa que voce quer "traduzir" 
para seu computador tenha a seguinte linha: 

50 ON A GOTO 1 00, 200, 300 

Note que os numeros de linha estao numa sequencia 
crescente de numeros inteiros, todos multiplos de 100. 
Para este caso, podemos usar: 

50 GOTO 1 00 * A 

60 . . . (sequencia do programa) 

Todavia, a instrugao ON A GOTO . . . faz ainda outra 
coisa: se A for menor que 1 ou maior que 3, o compu- 
tador executara a linha seguinte. Para completar o traba- 
Iho, devemos acrescentar a linha: 

45 IF A < 1 OR A> 3 GOTO 60 



29 caso: o programa original apresenta quaisquer 
numeros de linha apos o GOTO, 

Quando o programa original apresenta quaisquer nu- 
meros de iinha apos o GOTO s6 podemos langar mao de 
condicionais do tipo IF . . . THEN. Isto e possfve! por- 
que o A ou a variavel que indica o desvio pode ser enca- 
rada como uma variavel que deve atender a uma dentre 
n condigoes. Por exemplo, a linha: 

50 ON J GOTO 80, 10,70 

Podera ser escrita como: 

50 IF J= 1 THEN GOTO 80 
55 IF J = 2 THEN GOTO 10 
57 »F J = 3 THEN GOTO 70 

60 . . . (sequencia do programa) 



Neste caso, nao e necessario acrescentar nenhuma li- 
nha referente a comparacao com valores menores que 1 
e maiores que n, pois o programa segue automaticamen- 
te para a linha seguinte, ap6s passar por todas as compa- 
racoes 



Conclusao 

Existem muitos outros problemas encontrados por 
quern deseja rodar um programa de outro computador 
no TK ou em computadores com a mesma logica. Ainda 
existem outras instrugoes que podem ser encontradas 
em outros computadores e nao no TK (ou encontradas 
sob uma sintaxe diferente) e muitas delas poderao ser fa- 
cilmente implementadas no seu computador. A rec/pro- 
ca tambenn 6 verdadeira. Existem funcoesqueaparecem 
no TK e nao aparece em outros computadores, que obri- 
gam seus usuarios a lancar mao de outros recursos para 
contornar o problema. Um exemplo tfpico e a funcao 
PAUSE que normalmente nao e encontrada em outros 
computadores. 

Isso nao torna o BASIC do TK inferior ao dos demais 
computadores, pois cada fabricante deu uma prioridade 
diferente ao seu projeto. No caso do TK, a orientacao 
foi torna-lo compacto e a um preco acessi'vel, com um 
hardware mi'nimo, resultado foi uma linguagem 
BASIC um pouco diferente das demais, contendo instru- 
goes completas em cad3 tecta, ocupando um pequeno 
espago na mem6ria de programa. 

Por outro I ado, esta s^rie de artigos sera aberta a su- 
gestoes. Se voce deparar com um programa de um outro 
computador que nao conscguir traduzir, envie-nos uma 
copia, citando a marca e o modelo do computador e a 
instrugao que Ihe causou problemas. Se for possfvel uma 
traducao, a instrugao em questao podera ser objeto de 
um futuro artigo. 

o 
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VERBATIM 



PRODUZIDO NA ZONA FRANCA 
DE MANAUS SIGNIFICA: 
QUAUDADE COM 5 ANOS 
DE GARANTIA E O MELHOR 
PRECO DO MERCADO. 



ENTREGAIMEDIATA 



DATALIFE ~ diskettes sao produzidos com uma unica 

preocupacao: o armazenamento de dados sem erros. 

Esse comprometimento requer precisas teenicas 

de producao e rigoroso controle de qualidade. 

DATALIFE " diskettes 8 ou 5 1 /4 polegadas term 

certificacao 100% sem erros. 

A diferenca DATALIFE ~ e pura e simplesmenie qualidade. 



FD 34-9000 


simples face/simples densidade 
Z6setores - 128 bytes /setor 8 polegadas 


FD 34-8000 


simples tace/dupla densidade 

N3o setonzado ■ nao formatado 8 polegadas 


DD 34-4026 


dupia face/dupla densidade 

26setores 256 bytes/ setor 8 polegadas 


OD 34 4001 


dupla face/dupla densidade - N3o setonzado 
nao formatado 8 polegadas 


Entrega a partir desetembro 1.983 


MD 525-01 


simples face/dupla densidade 
5 1 /4 polegadas 


MD 660-01 


dupla face/dupla densidade 5 1/4 polegadas 



Em embalagem 

Caixas pISsticas 



de cartSo corn 10 unidades 
opcionais. 



Revendedores e Fabricantes interessados. 
let: (01 V 262-5332 



PARA ENCOMENDAS FOR A DE SAO PAULO, 

A MEMPHIS PAG A A UGACAO. 

D/SQUE (QW 800-8462 



Distribuidor: IlleinphiS 

Industrie e Comercio Ltda. 

Av. Arnolfo de Azevedo, 108 - Pacaembu - Sao Paulo - Brasil 

CEP 01236 PABX {011» 262 5577 Telex (011) 34545 

Filial Rio: Praia do Flamengo, 66 cj: 1519 Tel: (021) 205-3849-225-3469 

Matriz: Av. Angelica, 35 - Sta. Cecilia - Sao Paulo - Brasil - CEP 01227 



MATEMATICA FINANCEIRA 
EM BASIC TK 



Flavio Rossini 




Muttas pessoas se lamentam da falta de comandoses- 
peci'ficos em BASIC que tornem as "entradas" e "sai- 
das" de dados numericos compatfveis com o padrao uti- 
lizado em aritm6tica financeira, ou seja, numeros encos- 
tados a direita (e nao a esquerda), com duas casas depois 
da vi'rgula (e nao ponto) e com um ponto entre cada 3 
algarismos. De fato, 6 desagraddvel ver os "milhoes" na 
mesma coluna dos "milhares" ou entao ver dados com 
milesimos de cruzeiros. 

Cr$ 1934.8769 
Cr$ 7.9815 
Cr$ 299873.4 
Cr$ 9 
CrS 10.056 

Apesar de outras linguagens como o FORTRAN, e 
principalmente o COBOL, fornecem facilidades para o 
manuseio de numeros nestes formatos, em BASIC isto 
tambem e" possi'vel. . . 

.Para tanto, desenvolvi duas subrotinas ern BASIC para 
o TK que executant, respectivamente, a "entrada" e 
"sai'da" de dados no padrao financeiro. Analizemos, pri- 
meiramente a entrada de dados; ela deve aceitar nume- 
ros com "." e ",", por exemplo: 

1 .345.003,37 



e transforma-lo para a maneira que o computador esta 
"acostumado" para a execucao de c^lculos, ou seja: 

1345003.37 

Assim temos: 



990 REM ffFLHUIO ROSSINI 1983J* 
99S REM SR PyENTflfiDfl DE DODOS 
OJ FORMflTO FINRNCEIRO 

1000 FAST 

1905 INPUT R* 

1010 LET L=LEN fi$ 

101S DIM B*(L) 

1020 FOR U=l TO 1_ 

1025 IF R* CUJ <>"." THEN LET B«(U 

) =R$ (U! 

1030 IF fl$tU)="," THEN LET B$(U) 

1035 NEXT U 

1040 LET N=UOL B* 

1050 RETURN 

fig- 1 

Esta subrotina simplesmente retira todos os "." do 
dado entrado e substitut a ",", por um ".", deixando o 
valor numerico para calculos na variavel N. 

A subrotina para executar a "sai'da" de dados, ou se- 
ja, transformer um numero no formato do computador 
para o formato financeiro, e" bem mats complexo. Ela 
consta de tres mbdulos basicos: 
a) ajustar o numero para duas "casas" apos o " " (que 
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sera substitui'do por uma vi'rgula) para os tres cesos pos- 
si'veis: nenhuma casa apos o "." (variavel inteira) , uma 
casa ap6s o "." e duas ou mais casas apos o ".". 

b) co bear urn "." entre cada 3 algarismos antes da vi'rgu- 
la (**,"). 

c) imprimir o numero encostando-o a direita na vigeslma 
coluna. 



L098 REM **FLAUIO ROSSINI 13S3** 

1035 REM SR P/5aiE-ft DE DADOS 
C-zPOWMflTO FINANCE IRQ 

"-100 FRST 

1105 REM MODULO ft 

1110 LET N$=STR$ N 

1115 LET L=LEN Nf 

112© FOR U = l TO L 

1125 IF N$ fU> =" . " THEN GOTO 114E 

113© NEXT U 

1135 LET M$=N$-J-" ,00" 

114.0 LET NSCUJ *=",'■ 

114.5 LET M$=N$+"0" 

1150 LET L=U+2 

1155 LET MS=N$ C TO L) 

1160 REM MODULO B 

1165 LET L=L-3 

1170 LET L=L-3 

1175 IF L<^0 THEN GOTO 1210 

11S8 LET C$=N$< TO LJ 

11S5 LET M$(L3 ="." 

1130 LET K$-K$iL TO ) 

1135 LET M$=G$+N$ 

1200 GOTO 1170 

1205 REM MODULO C 

1210 PRINT "CRQ ";TAB (21-L3;N$ 

122E SLOU 

1225 RETURN 



tig. 2 



numero a ser coiocado deve ser colocado na varia- 
vel N, A tftulo de exemplo, vamos apresentar um peque- 
no programa que utiliza estas subrotinas; voce fornece o 
preco de custo de 3 produtos e a porcentagem de lucro 
desejada para cada um e ele fornece o preco de venda e 
o lucro . . . 



5 REM **FLflUIO ROSSINI 19S3** 

10 REM EXEMPLO DE RPLICFICflO PR 
RA 5USROTINA5 FINRNCEIRAS 

20 SLOU 

25 LET ENTFIN = 10(30 

30 LET SRIFIN=11O0 

35 DIM P$(3,14) 

4-0 DIM K(3,23 

*5 FCR 1=1 TO 3 

50 PRINT "NOME DO PRODUTO "iXi 

55 INPUT P$£I) 

60 PRINT P$<I1 

65 PRINT "PRECO DE CUSTO ?" 

70 GOSUB EHTFIN 

75 LET K (I, 1J =N 

80 PRINT "CR* ":A$ 

85 PRINT "POfiCENTflGEH DE LUCRO 

90 GOSUB ENTTFIN 

95 LET K (1,2) =N 

100 PRINT A(; " POR CENTO" 



105 PRUSE 12S 

110 CLS 

115 NEXT I 

120 FOR 1=1 TO 3 

125 LET LUCRO= (K tI,S) *0.01> *K (I 

1) 

130 PRINT "PRODUTO ";P$(I) 

135 LET M-K (1,1) +LUCRO 

14-0 PRINT TAB 5; "PRECO DE UENDP 

14.5 GOSUB SO IF IN 

150 LET N=LUCRO 

155 PRINT TRB 5j "LUCRO- 

160 GOSUB SAIFIN 

165 PRINT 

170 NEXT I 

175 PRINT 

ISO PRINT 

190 STOP 



BFE" 



anrass 



EE£_ 



5XEMPLQ; 



NOME DO PRODUTO 1 ? 

ABAC AX I 

PRECO DE CUSTO 7 

CR* 563 

PORCENTAGEM DE LUCRO 7 

71,87 POR CENTO 



PRODUTO ABACAXI 

PRECO DE UENDA 

OR $ 

LUCRO 

CR$ 

PRODUTO BRNANR 

PRECO DE UENDR 
'-R$ 

LUCRO 
CR$ 

PRODUTO CflUIRR 

PRECO DE UEMOft 
CRJ 

LUCRO 



962 , 4-7 
4.02,4.7 

619,30 
262 , 4.0 

27.263,37 
18. 260 , 77 



3FE 



fig. 3 



Note que as subrotinas utilizadas apenas "truncam" 
as duas casas depots da vi'rgula; se for necessario um "ar- 
redondamento" do resultado, bastaria, por exemplo, an- 
tes de entrar no m6dulo B da subrotina de safda, restar 
valor do caractere N$ (L+l); se VAL N$ (L+1) for 
rnaior do que 5. basta somar 0,01 ao resultado, caso 
contrario, nenhuma providencia devera ser tomada. Ten- 
te fazer isto. £ um bom exerci'cio e ajudara a entender 
as subrotinas aqui apresentadas. 

O 
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COMO COLABORAR 
COM MICROHOBBY 



A revista MICROHOBBY foi criada para servir de in- 
tercambio entre os leitores que participanri do magico 
mundo da computacio 

A caracten'stica realmente inovadora do computador 
pessoal, esta" em transformer cada consumidor num cria- 
dor, Aproveite sua criatividade e envie suas colabora- 
coes, recebendo remuneracao a ti'tulo de DIREITO 
AUTORAL. 

Se o material enviado for aprovado para publicapao, 
a remuneracao sera" de Cr$ 10.000,00 por programa Se 
o programa for muito bom e muito extenso esta quantia 
sera* aumentada, a crite>io da redacao, at6 Cr$ 30.000,00. 
Esta remuneracao ser3 oferecida tambem para artigos 
interessantes sobre o murrdo do TK. 

A maneira ideal de nos enviar o material a ser publi- 
cado obedece as seguintes normas: 

1 ) IMunca esquecer de colocar nome completo, endereco 
e numero de sua assinatura em todo material enviado (fi- 
tas, listagens de impressora, envelope, carta, etc). 
2} Enviar a listagem de programa datilografada ou, me- 
Ihor ainda, tirada na impressora do TK. 

3) Colocar sempre uma linha REM com o nome do autor 
e o t itulo do programa 

4) Enviar uma f ita com o programa gravado algumas ve- 
zes (se possi'vel em gravadores diferentes!. 

5) Na f ita, gravar com microfone (em viva voz), algumas 
instrucoes uteis, nome completo e endereco do reme- 
tente. 



O material nao utilizado nao sera devolvido. Esta e 
uma norma corrente em quase todas as revistas do mun- 
do, que gera porem, uma certa desconfianca: "e se apa- 
garem meu nome do programa e o publicarem sem me 
remunerar?" 

Neste ponto podemos sugerir o seguinte: 

Ao enviar o material para qualquer revista, voce, ou 
conf ia em sua seriedade, ou, e melhor nao enviar o ma 
terial, reservando o para uma publicacao di'gna de seu 
credito. 

Uma outra sai'da e a de tirar uma copia de todo ma- 
terial enviado e registra-lo em cartbrio, para qualquer 
reclamacao posterior. Obviamente tal procedimento sbe 
aconselhavel se o material enviado for valioso a ponto de 
justificar toda essa mao-de-obra. 

6) O material deve ser enviado para: 

MICROMEGAP.M.D, Ltda. 
PROGRAMASDO LEITOR 
Cx. POSTAL: 60081 
CEP: 05096 - S. PAULO - SP 

1} Qualquer duvida, poderd ser esclarecida pelo telefone: 



(01 1) 257-5767 com Roberto. 
Aguardamossua colaboracao. 



O 



DESGRILANDO 



Prezados Senhores, 

Se hi um programa na memdria do computador e eu 
dou LOAD, para procurar um programa numa fita. 
O programa anterior se apagara? Parciat ou totalmente? 
O programa da fita se carregara automaticamente? 

Jaime Jacobson 

Caro Jaime, 

Ao dar o LOAD o programa que esta" na RAM e apa- 
gado totalmente para dar lugar ao novo. Se o novo nao 
estiver em boas condicoes voce fica com o computador 
vazio. 




L" 



Nisso e que reside a grande vantagem da funcao 
VERIFY do TK85: apbs gravar uma fita voce entra com 
o programa, mas sem dar um LOAD. Se o programa gra- 
vado conferir com o original da RAM o computador 
acusara OK e voce podera desliga-lo tranquilamente. 

O programa da fita carrega-se automaticamente se vo- 
ce digitar seu nome. Por exemplo, se voce tiver vaVios 
programas gravados numa unica fita e der o comando: 
> 
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LOAD "FORCA" 

Com o gravador na posicao PLAY, a fita correrasem 
que o gravador aceite os programas que passam. Ao re- 
ceber, porem, uma sequencia correspondents a um pro- 
grama que foi gravado por um: 

SAVE "FORCA" 
o computador carregara" sua RAM com ela. 

Prezados Senhores, 

No programa Barao Vermelho, da pagina nP 5, da Re- 
vista dos Usuarios do TK n9 0, hi a linha 180 que usa 
as funcoes PEEK, ou seja: 180 IF PEEK (PEEK 
16398 + 256 X PEEK 16399} = 128 THEN GOTO 310. 
Qua! i o significado destas instrucoes? 

Na linha 215 e 240 trabatham com SGN que e outra 
duvida. 

Eul4lio Alves da Silva (Porto Velho - RO) 

Caro Eulalio, 

Os enderecos 16398 e 16399 conte>n dois bytes que 
mdicam uma variavel do sistema denominada POSPR. 
Esta variavel, por sua vez, indica a posicao do PRINT no 
arquivo de imagem. Para uma explicacao detalhada, po- 
rem, seria interessante que voce acompanhasse uma ma- 
teria a ser publicada no numero 4, justamente sobre a 
organizacao da memoria do TK. 

Por outro lado, a funcao SGN {tecla F) e facil de ser 
explicada, Ela assume o valor +1 se seu argumento e um 
numero positivo qualquer, —1 se for negativo e se for 
nulo. 

Experimente fazer no seu computador o seguinte pro- 
graminha: 



10 DIM R$r3,lBJ 

20 LET Hf (1)="SGN 69" 

30 LET F»$(2) ="SGN 0" 

<t0 LET fi*(31="SGN -55" 

50 FOR 1=1 TO 3 

66* PRINT flf 1IJ ;■■="; URL 

70 NEXT I 



R$ ( I) 



Ele vai Ihe explicar o SGN 



Prezados Senhores, 



. . . Como explicar o desempenho do programa "DEMO- 
LIDOR" da MICROSOFT nurn TK sem SLOW? Isto 
sempre me deixou bastante curioso. . . 

Luis Henrique B. de Miranda 



Caro Luis Henrique, 

A explicacao e simples: um computador que trabalha 
em FAST nao envia dados para a TV enquanto esta pro- 
cessando, por isso "perde o controle" de imagem. Um 
computador com circuito deSLOW usa este circuito co- 
mo uma espe*cie de interrupter: enquanto a tela esta sen- 
do formada pela varredura, o computador 6 obrigado a 
nao processar, mantendo a formacao da imagem sob 
controle. No breve intervalo de tempo entre o fim de 
uma imagem e o comeco da seguinte ha um lapso de 
tempo durante o qual ele processa os dados pois neste 
intervalo nao ha problema em nao se enviar dados para a 
TV. programa DEMO LI DOR 6" uma obra prima da 
acrobacia de prograrnacao: como cada instrucao em lin- 
guagem de maquina tern um tempo de execucao muito 
bem determinado, a sequencia de instrucoes foi calcula- 
da de sorte a durar exatamente tanto quanto o lapso ci- 
tado. Ao terminar este lapso, o proprio programa faz o 
micro processador parar de processar durante a forma- 
cao de imagem. Note que, como o programa tern ram if i- 
cagoes, este calculo foi feito para todaselas. 

Em resumo, "DEMOLIDOR" e um programa que tra- 
balha aos 'solugos ' em perfeita sincronia com a varredu- 
ra da TV, simulando um SLOW por "software". 

O 



LANQAMENTO 



PASSAGE!* PARA INFIHITO 

Sensational jogo onde voce tenlAra eneontrar 9 Sfcix com um rabuioBo teauufe em um 
complexo laoinnk}. guapdadc* por tarriveis poSvo& monslms. S com mais de 400 pas 
&os Par* ajuda-lo. voce contara com algumas aspadas. que garanUrao sua Bobrevi 
v^ncia na lula com OS monstros, e com oa prialoruJiros ertcarefl'radi.is nas vtrtas paa 
sagens qua Ihaindicarao ocammh.0 aseguir Totatmenle em L i n guagenr. de maquina 
com grificos fflntasti^arrjKriLjfi ani.mado.a b ires mwtNs de djificuJdade para desahi lo 
Frscg Cr* 7 000.00 

MIDWAY 

Uma gran deguarra munriiaj agtasendr:?!.f&tfadi naaafiuasdo Ailarutcti Voce agorae 
u ccnsandiJiw do submarine aacrmco MIDWAY, sua missAo deairujr tod; as as bases 
inlmsgaaam Aguas brasilsiras Cudadoecm os rs&vjos, avtAe&e minas eapalhadospe 
Ids Lnvj&BoreB Para auKilia !c podera contar com uma frota rj# navtn« de raahasteo 
rnflnlo. variaat3a6esa,]iada5e um cmmpuiad'cT de bordo Um grande cieflaJiocomfiri 
ficos 9 vanas rotinaa am linguagerr. de mAQULrsa pfaqu Cr4 5 000,00 



JOHN ADA HAS ESTRXLAS 



A sua nave interplaiieidna KNTP-EPRISE necHflSLta liivrar a galaiua doa invaaores 
KLJUfjon e voce, como cc-m an d ari le da nave leri a afdua hhh&40 rt* de&Lrut -]M Um 
jogo famofto no mundrncianeflf! mma rtesuns nj#lfiOr«H versoe&p^la SofiJ(riBtian.ct?m 
efBLhis grAficoa aensaciatiais Pr^ir,; Ct4 S 000. 00 



I a DIMXNSAO- 



Agora voeajAp ode Serum flippramasmseu microcoinpuladiir #TTi3' DIMFNKAOdois 
iogos agiladisusimoe para taslarauactKirrienac*" mpLora Em SPACE INVADER v<jc« 
t*m oaongmais in vaae res a kacand q hub RaveeemA£TETtOID woef deve pouEarem um 
plane La e, para tan to d*ver& Lilt rapassat yeubstftaulDBque ve-em \ s ua f r* n, te l*nt*ndo 
dastruJ-lo. Orandos jogos em Unguagem de mAquma preyc Cr* 6 000,00 



VISIXA AO CASSINO 



Quairo grandee jogos em um bo caca rdqueis. rate 16, 2 I e perGflgui^ac lata] fazem 
parte deslfl senBaclonalconJuntO Tfnioe os ]Dg:oa com grAficoa b rrmnaaem Jingua^em 
Se mA^uUia, para voea quegosla de apoSLar B Lafcer Pps^o CrJ 5 000 00 



■ 10 JOGOS EXCITANTES PARA 1 K - 



De? peo.uanoa Jogoa para voce incremenlar e aprandef baalante o* efeltos de progra 
mB^AodejogoBe traoMhOH com video SevocenAo dispoe da BXpnn&Aorte 10 Kiapoda- 
r* lerentretenlrnentocomeata aensacionalflto. S* voce jadiapfiede 18 K compreparl 
Increment* los e LerA excelehWe JOgOS Pr*cO Cr* 4 000.00 



Ccmpre cfthosca de flua-iquer &jfle cti B*A$> se-m 
despesds aflicflna-s ermianflc urn cheque L'diA 
{JOE numild^iKfl'STlAM ELt^RQNlCAL'Oa n3o 
snci^j visits e \}A'ir--a a receoimenio de nossa 
intormjlivo NOV-DADtS ■Kfl.iSTiAN Solaimcrie 
■gralu-lo 



[Kpistfen] 

ftua da La-pa, 130 grupo 60B 

TbIb 252 0057 £33 5948 

CEP 20031 RlodeJaneircFUI 



Todas aa JlLaa vAo em ombalagem Iftcrad*. CDm gravacao prof laaional. para ill* gar ad 
(I* A K rifiLiaf'i trocarA qkialquer f Ita que aeja envlada. com defeitoB de fabrlcadcAt 
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Program* do Ales 

"LIFE" 

Simulagao da Evolugao 



Pierluigi Piazzi 

programa "LIFE" foi originalmente elaborado por 
John Conway da Universidade de Cambridge, Inglaterra 
em 1970. 

A versao que apresentamos foi adaptada para o TK 
por Flavio Rossini e encontra-se detalhada em seu livro 
"Introdugao a Linguagem de Maquina para o TK". 

Vamas nos limitar a reproduzir aqui a listagem do 
programa sem entrar na discussao das instrucoes de seu 
Assembly. Se algum leitor estiver interessado nesta par- 
te, aconselhamos a leitura do capftulo XI do livro citado. 

Inicialmente vamos discutir o principio do programa: 
num quadrado de 16x16 posicoes, nascem, se reprodu- 
zem e morrem celulas, representadas por um "0" (fig. 
1). 



WE£ 



•S HSEvS 



fe#,]#j&i 



■ : -S1-- ■'M 



EXEHPLO E>E TEi_B 



1053 BYTES 



fig. i 

Ao comecar o programa produz uma primeira geracao 
de celulas, distribuidas ao acaso em seu "habitat" de 
256 posicoes. A geracao seguinte e entao desenhada na 
tela obedecendo a certas regras "biologicas". 

Cada c^lula tern 8 vizinhas possi'veis (fig. 2) : 



1 


2 


3 


4 5 


6 


7 


8 



fig. 2 



1 ) As celulas que tiverem apenas 2 ou 3 vizinhas sobrevi- 
vem e aparecem na geracao seguinte. As demais morrem. 

2) Todo espaco vazio que tiver exatamente 3 celulas vizi- 
nhas, gerara uma nova celula na geracao seguinte. 

E interessante observer que o "habitat" 6 um espaco 
fechado sem limites, ou seja, a ultima fita embaixo 6 
computada como adjacente a primeira fila de cima e a 
ultima coluna da direita e" considerada adjacente a pri- 
meira da esquerda {fig. 3). 
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fig. 3 

Em matematica, din'amos que o quadrado gerado na 
tela e topologicamente equivalente a uma esfera. Para 
entender melhor a analogia, voce deve imaginar um ma- 
pa-mundi (fig. 4), onde o lado direito junta-se a seu tado 
esquerdo. 




fig. 4 
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Qualquer outra observacao a respetto da "biologia" 
do programa toma-se ineficaz enquanto voce nao tiver 
digitado o programa que, em sua forma final, ocupa 
1053 bytes. 

19 Passo: digite o programa listado na figura 5, to- 
mando o cutdado de entrar com exatamente 142 pontos 
apos o REM da linha 1 , Por via das duvidas sa!ve-o em fi- 
ta para nao ter que redigitar tudo se faltar energia eletri- 
ca. programa em BASIC serve para inserir, no lugar de 
cada ponto, um valor correspondente ao codigo de ma- 
quina. primeiro ponto ap6s o REM esta" no endereco 
16514 da memoria, e o ultimo no 16655. Esta insercao 
e feita atraves do comando POKE. 



PROGRRHR 1 

1 REM 

" " * 5 " SCROLL. 

10 PRINT "ENDERECO INICML f 

20 INPUT M 

30 PRINT M 

4-0 FOR I=H TO 16655 

50 INPUT P 

60 POKE IjP 

70 SCROLL 

SO PRINT IjP 

90 NEXT I 



fig. 5 



29 passo: com o programa 1 ja digitado, de um RUN. 
programa perguntara" qual o endereco inicial, e voce 
digital 16514. 

A seguir a sucessao de bytes, escritos em forma deci- 
mal, listados na figura 6, devera serdigitada (apertando- 
se NEW LINE apos cada byte). Esta £ a parte mais chata 
da hist6ria e aconselhamos leitor a achar um colabora- 
dor disposto a ditar a sequ§ncia e a conferir na tela. 

Lembra-se a Lei de Murphy? 

"Se alguma coisa tern a mais remota chance de dar er- 
rado, fatalmente dar3 errado". Consequentemente, em 
algum ponto desta enfadonha sequencia voce errara, 
Nao entre em panico. 

Procure o ultimo endereco em que voce digitou cor- 
retamente e anote-o. Digite STOP interrompendo o 
programa e de um RUN. 

Neste momento parece que estou vendo a cara des- 
confiada do leitor: "Tern certeza que e RUN? Nao vou 
perder tudo que digitei ate agora?" 



vendo a linha 1, substituindo os pontos por caracteres 
correspondentes aos bytes do programa em linguagem 
de maquina. RUN apaga as vari^veis, mas nao as linhas 
do programa. 

LI5TRGEM DECIMOL £>£ "LIFE-' 



1651*= 
16515= 
16516= 

16517= 
16518= 
16513= 
16520= 
16521= 
16532= 
16523= 
1652*: 
16525: 
16526: 
16527: 

1552©: 
16529: 
15530: 
16531: 

16532: 
16533: 
1653+ : 
16535 = 
16536: 
16537: 
16538: 
15539: 

1654-0: 
1654-1: 

1654-2: 

16543: 

16544: 

1654,5: 

16546 

15547: 

16548 

1554-9 

16550 

15551 

16552 

16553 

16554- 

15555 

16556 

16557 

16558 

15559 

15560 

16S61 

16562 

16563 

1656* 

16565 

16566 

16567 

16568 

16569 

15570 

16571 

16572 

16573 

1657+ 

16575 

16576 

16577 

15578 

15579 

16580 

16531 

16582 

16583 

1658+ 



:>239 

>1 

>1 

>16 

>16 

>255 

:>255 
>240 

>14 
>16 

:>6 

:>16 
:>42 

i >50 

= >64 

= >8+ 

= >93 

r>41 
= >41 

->25 
= >41 

:>41 

= >41 

:>25 

->34 

= >50 
= >64 
= >124 
= >254 
= >196 
:>56 
= >4 
= >62 
= >180 
= >24 
= >2 
= >62 
= >128 
= >215 
= >16 
= >227 
= >62 
= >118 
= >215 
= >13 
~ >32 

: >219 

= >201 
= >6 
= >0 

:>17 
= >0 

= >117 
= >42 
= > 12 
= >64- 
= >229 
= >126 
= >35 
= >254 
= >127 
= >56 
->250 
= >18 
= >19 
= >16 
= >246 

:>17 
= >0 
= >117 
= >213 



16585= 
16586= 
16587= 
16588= 
16589= 
15590= 
16591= 
16592= 
16593= 
16594= 
16595= 
16596= 
16597= 
15598= 
16599= 
16600= 
16601= 
15602= 
16603= 
16604= 
16605= 
16606= 
16607= 
16o08= 
16609= 
15610= 
15611= 
16612= 
16613= 
16614= 
16615= 
16616= 
16617= 
16618= 
16619= 
16520= 
16621= 
16622= 
16623= 
16624= 
16625= 
16626= 
16627= 
15628= 
16629= 
16530= 
16631= 
16632= 
16633= 
16534= 
16535= 
16536= 
16637= 
16638= 
16539= 
15640= 
16641= 
16642= 
16643= 
16644= 
15645= 
16645= 
16647= 
16648= 
18549= 
16650= 
16651= 
16652= 
16653= 
16554= 
15655= 



>14 
>0 

>209 

>225 

>126 

>254 

J127 

>48 

>3 

>35 

>24 

>246 

>229 

>235 

>229 

>17 

> 130 
>64 
>26 
>£54 
?14 
>40 
>11 
>19 
>133 

> 111 
>126 
>254 
>1S0 
?32 
>B4-3 
>12 
>24 
>240 
>225 
>121 
>254 
>S 

>15 

>254 

>4 

>4S 

?11 

>254 

>3 

>40 

>3 

>126 

>24 

>5 

>62 

>180 

>24 

>2 

>62 

>12S 

>227 

:-119 

>35 

>2S7 

>35 

?229 

>125 

>167 

>32 

> 189 
>225 

> 225 
>201 
>0 



Nao, nao vai perder: o POKE da linha 60 esta" reescre- fig. 6 
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Ao ser perguntado qual o enderego inicial digite o su- 
cessivo ao que voce anotou e continue inserindo a lista. 

Quando aparecer o cbdigo: 

0/90 

Voce pode ofertar NEW LINE e vera" como a linha 1 mu- 
dou de aspecto: uma parte, inclusive, ficou invisi'vel 
(fig. 7). 



RSPECTO DH LISTflGEM RPOS RODRR 
O PROGRRHR 1 

1 REM LORD *■ i ( COPY COPY LIS 
T : (^ (EHRND??DD; DDD ; 6MRND? RETUfl 
N CODE 5* YB/ "V^qOT ( STOP Y 



OBS: HUNCH COMfiNDE "EDIT 1 
R LINHR 1 



PRRfi 



flg.7 

Nunca, mas nunca mesmo, traga esta linha 1 para bai- 
xo com o comando EDIT. Se voce acompanhar o nosso 
curso de Assembly, um dia vera 1 o porque. 

39 passo: apague todas as linhas do programs 1 
exceto a numero 1, que contem a sequencia em lingua- 
gem de m^quina. Se voce ficar aflito por apagar as cegas, 
digite LIST 2. 



PROGRfifiK 2 

2BSLOU 
3 RAND 
4- LET" MICROHOBBY=U5R 16522 

5 LET MICROMEGR=USR 1&562 

6 GOTO 5 



fig. 8 

Agora digite o programa 2 (fig. 8). Se seu computador 
nao tiver SLOW, digite o programa 2 na versao apresen- 
tada na figura 9. 



PROGRRHfi 2 P/OUEH TEH MROUINfl 
SEM "SLOU" 

3 R-fiND 

* LET MICROHOBBY=U5R 1652S 

5 LET MICROMESfi=USR 1B5&2 

6 PAUSE IB© 

7 GOTO 5 



fig. 9 

A linha 4 chama, atraves da funcao USR a subrotina 
localizada na linha REM a partir do enderego 16522. 
Esta subrotina gera aleatoriamente a primeira geragao de 
celulas (fig. 1). A seguir a linha 5 chama a subrotina que 
se inicia no enderego 16562. 

Esta subrotina impoe as "regras biologt'cas" para pro- 
duztr a geragao seguinte. 

49 passo: digite RUN e fique observando o suceder-se 
de geragoes. Quern nao tern SLOW talvez tenha que ajus- 
tar um pouco o controle VERTICAL de sua TV: a tela 
ficara piscando mas nao pulando. 

Se voce quiser acompanhar passo a passo a "evolu- 
cao" de seus bichinhos,'pode alterar o programa 2 como 
indicado na figura 10. Desta forma, para ver a geragao 
seguinte basta pressionar NEW LINE. 



jLOU 
3 RRND 
4. LET HICRDHOSBY=USR 16522 

5 LET MICROMEGR=U5R 16552 

6 INPUT R* 

7 GOTO S 



PROGRRHR PRSSO-fl-PfiSSO 



fig. 10 

59 passo: de agora uma recordada sobre o que voce 
aprendeu a respeito de Darwin, Veja como a situagao 
inicial pode evoluir dando origem a uma extinga"o total 
ou a "especies" estciveis. Ocasionalmente obtemos como 
resultado final formas "meta-est^veis" que oscilam entre 
duas possibilidades. 

Uma coisa muito interessante e se observar o desenro- 
lar da "evolucao convergente". 

tubarao, o golfinho, e o ictiossauro tern origens 
completamente diferentes: um 6 peixe, o segundo e ma- 
mffero e o terceiro 6 um reptil, (fig. 1 1). Ao seadapta- 
rem, por6m, ao meio aqudtico ficaram submetidos a 
conjuntos similares de regras eacabaram evoluindo para 
formas semelhantes. 

Analogamente, as configuragoes iniciais, diferentes 
umas das outras pois sao geradas ao ACASO, ficam 
submetidas a um conjunto de regras que simulam uma 
PRESSAO DE EVOLUCAO e acabam convergindo para 
formas similares. 

r> 
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A grande virtude deste programa eode permitir simu- 
lar, em poucos minutos, um suceder de geracoes que di- 
ficiimente poderemos observar na pr^tica. Para reiniciar 
a observacao digite BREAK e a seguir RUN. 




69 passo: para salvar o programa em fita voce tern 3 
caminhos: 

a) DigitarSAVE "LIFE" normal mente 

b) Acrescentar as linhas: 

10 SAVE LIFE" 

11 RUN 

e comecar a gravacao com 
GOTO 10 

c) Se voce tiver um TK85, acrescente as linhas: 

10 LET LIFE = USR8405 

11 RUN 

Nestecaso, ao digitar: 

GOTO 10 
voce estara 1 gravando o programa em HIGH SPEED. 



UVROSPARA TK, NEZ, CP 



TRI/VTA JOGOS 

INCLUINDO PROGRAMAS EM CODIGO LIS 
TADOS POR IMPRESSORA 

JOGO DE DAMAS, LABIRINTO, GUERRA 
NAS ESTRELAS, ENTERPRISE , PAREDAO, 
DEMOLIDGR, VELHA, PASSING, ROLETA 
RUSSA, CORRIDA DE CAVALOS, GOLF, 
VINTE E UM, CUBO MAGICO.SENHA, BAN 
CO IMOBILIARIO, BOMBARDEIO, SOM 

POR SOFTWARE, ETC 

LANCAMENTO CR$ 4.000,00 



APUCACOES SERIAS 

FOLHA DE PAGAMENTO, BALANCETE ,CON 
TAS A RECEBER, A PAGAR , CORRECAO 
MOMETARIA DAS CONTAS DO BALANQO, 
CORREgAO DAS CONTRIBUTES DO I. 
A.P.A.S., CADASTRO DE CLIENTES , 
CONTA BANCARIA.TABELA PRICE, ESTA- 
TISTICA.CORREQAO DE PROVAS, EDITOR 
DE TEXTOS.RAM TOPER , SUB-ROT IMAS 
EM CASSETTE, CHAINING PROGRAMAS, 
CONTANGO OS BYTES DAS LINHAS, DO 
PROGRAMA, DAS MATRIZES, ECONOMIZAN 
DO MEMORIA, ETC... ETC... 

CRt 4.800,00 

45 PROGRAMAS 

ARQUIVOS,ESTOQUE, PLANO CONTABIL , 
AGENDA TELEFONICA , INVASORES , APAGUE 
A TRILHA, CAQA AO PATO, JOGO DA VE 
LHA, FORCA, DADO, TABELAS, TABUADAS, 
CONVERSAO DE COORDENADAS, MEDIA, FI 
B0NACCI,PRQGRES5A0, BIORRITMO , RE 
NUMERADOR DE LINHAS EM CODIGO, ETC. 



7i EDICAO 



Cr$ 4.000,00 



i 



MICRON 



ELETRONICA COMEflQO E INDUSTRIA LTDA. 

Av S Joao '4 Telelone 22 4194 • S Jose das Campos 

Est de Sao Paulo 
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Program* do Mis 

ARQUIVO 



Este programa foi adaptado a partir de um programa 
publicado em marco na revista Microcomputing, sendo 
o original de autoria de Russel King. 

£ um programa inteiramente em BASIC que compen- 
sa sua lentidao com uma grande elasticidade. Como o 
programa e muito extenso (9800 bytes), aconselhamos 
o leitor a gravar a listagem em fi'ta cada 50 ou 60 linhas: 
se faltar energia eletrica nem todo o trabalho de digita- 
cao estara perdido. Esta tecnica tern a vantatem adicio- 
nal de permitir uma "descansadinha" enquanto o pro- 
grama incompleto esta sendo gravado, 

Quando o programa estiver completo, e conveniente 
grava-lo algumas vezes (isto pode ser feito automatica- 
mente: veja dicas na pagina 29 ). 

Ao rodar o programa o leitor deve criar o habito de 
digitar sempre GOTO 1 e rtunca RUN, para nao perder 
os dados a serem inseridos posteriormente. A primeira 
coisa que vemos 6 um menu inicial que caracteriza o 
computador empregado, dimensionando conveniente- 
mente a membria (fig. 1 ). 



SEU CQHPUTRDQR E" . 
1. . .TKSS-C *1&K> 
£. . .TK33 (16KJ 
3, . .2X81 *. 16KJ 
4. . .TIMEX (i6KJ 
5. . .CP 200 
5. . .NEZ8000 (16K) 
7...TK82/33 (64-K) 

8. . .TKSS (ISK) 

9. . .TK85 (4SKJ 



'MENU INICIRL) 



fig. l 

Uma vez digitada a opcao correta, passamos ao menu 
principal (fig. 2). Quando usamos o programa pela pri- 
meira vez devemos comecar pela opcao 8: 

8 . . , MONTAR NOVO FICHARIO 




1 



COMRNDOS DO flPOUIUC MICROHOBBY 
1 . . INSERIR REGISTROS 
a..TROCfifi REGISTROS 
3..RPRGRR REGISTROS 
4-. .LI5TRR TOOOS OS SEGISTROS 
5..BUSCR DE UM RE3ISTRO 
S..ORDENRR REGISTROS 
7..GRRURR REGISTROS 
8..MONTRR NOVO FICHRRIO 
9. .LISTflR CRHPOS 

OURL UOCE DESEJR USfiR? 



a 



fig. 2 

programa pergunta qual o nome do fichario: este 
nome se transforms tamb^m no nome do programa, 
quando usarmos a opcao 7: 

7 . . . GRAVAR REGISTROS 

o argumento do SAVE sera escolhido nesta ocasiao. 

Vamos supor que queiramos montar uma agenda de 
telefones de amigos. Digitamos, entao: 

AGENDA AMIGOS 

programa pergunta entao quantos campos tera cada 
ficha. Como se trata de uma agenda de telefones bastam 
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dois. Dependendo da utilizagao do fichario, uma quanti- 
dade maior de campos podera ser escolhida Obviamente 
quanto mais campos . . . memos f ichas. 

A seguir devemos definir quantos caracteres para o tf- 
tulo de cada campo. Aqui conv^m ser bem economico. 
No nosso exemplo vamosescolher tres Isto permite que 
o tamanho maximo de cada campo seja de 28 caracteres: 



CAMPO 



NOME DO CAMPO + CONTEUDO DO 
« 31 CARACTERES 



programa pede agora o nome do campo 1 . Vamos 
digitar: 



NOM (NOME DO AMIGO) 



Devemos agora responder quantos caracteres o campo 
NOM deve ter. Como se trata de uma agenda de amigos, 
bastam uns 12 caracteres (nao precisamos do nome com- 
pleto). 



Repetimos a operacao para o campo 2: 



Nome do campo 2: TEL (TELEFONE) 
Comprimento: 7 

Somos informados que a memoria comporta 330 re- 
gistros (com 16 K), e nos e perguntado quanto deseja- 



mos (fig. 3). 



OURL SERfl" 
FICHARIO 



Q MOHE DO FICHARIO 



DESECUR QUANTOS COMPOSES 

OURNTOS CRRflCTERE5 PARR O TITULO 

DE CftDfl CflMPO ? (0 R 1513 

Q TflMfiNHO MAXIMO DE CflDR CAMPO 

E" DE 23 CARACTERES 

CRMPO 1 : NOM 

COMPRIMENTO DO CRMPO 1 1-28) : %S 

CRMPO £ ■ ~rEi_ 

COMPRIMENTO DO CRHPO(l-tS) : 12 

O NUMERG MRXIHO DE REGISTROS 
URLE RPROXIMADAMENTE 330 
OURNTOS REGISTROS DESEJA? 

S 
fig- 3 



Apenas para arredondar, vamos escrever 300. com- 
putador pede entao para digitar qualquer tela menos 
BREAK 

Voltamos entao ao menu principal com o fichario ja 
dimensionado. Esta volta nao e muito rapida devido a 
uma peculiaridade do SCROLL do TK (veja DICAS, 
pag, 27). 



Vamos agora inserir alguns registros. Para isto basta 
digitar 1 : 



1 



INSERIR REGISTROS 



computador, a cada insercao nos pergunta se dese- 
jamos trocar algo ou se desejamos inserir mais registros. 
Todas essas perguntas devem ser respond idas por S ou N 
(Sim ou Nao). 

Ao terminer a lista, digits N quando a pergunta for: 
"deseja inserir mais registros?". Nao se preocupe se o 
computador parece sair do ar (mais uma vez esquisitices 
do SCROLL). 

Digamos agora que voce queira listar os registros. Bas- 
ta digitar 4: 

4.. LISTAR TODOS OS REGISTROS 

computador pergunta se queremos a listagem de to- 
dos os campos e se esta deve ser efetuada no vi'deo ou na 
impressora. 

A listagem surge na tela como SCROLL e a cada ficha 
para. Para continuar basta ficar pressionando a tecta C. 
Querendo interromper digite BREAK e GOTO 1000 (e 
tenha paciencia com SCROLL) (fig. 4). 

OUER R LISTAGEM DE TODOS CAMPOS'? 

MO UIDEO OU NR IMPRE5SORR? (U/I> 
D IG ITE C PRRh CONTINUAR 



NOM: JOSE RNTONIO 
TEL : 5 4.38877' 

NOM : ALBERTO 
TEL: 2S72455 

NOM: UALERIA 
TEL: 4-52338-? 

NOM:UICENTE 
TEL: 4.556734 



fig. 4 

Digamos que seja necessario tirar uma lista na impres- 
sora em ordem alfabetica. Devemos, no menu principal 
digitar 6. 

6 . . ORDENAR REGISTROS 



Uma vez escolhido o campo a ser ordenado apos a 
execucao e perguntado se desejamos refazer a ordenacao 
segundo outro crit^rio. Digitando N, volta-se ao menu 
principal, Digitamos agora 4 e escolhemos como opcao a 
impressora, obtendo, por exemplo, a listagem da fig. 5. 

> 
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NOH: RLBERTQ 
TEL: 2872456 



NOM:QELERMO 
TEL : 2114-533 



MB 



NOM : JOSE RNTDN IO 

TEL: 54-3887? 

■£-m 



NOH: MRRCIfi 
TEL; ©134.555 

NOM: MfiRILDfi 
TEL: 8397855 

NOM: VRLERIR 
TEL : 4-523387 

. 4Sk> 
NOM: UXCENTTE 
TEL -.4555734. 



fig. 5 
Para trocar algum registro, basta digitar 2: 

2. . TROCAR REGISTROS 

Sabendo o numero da fieha a ser trocada podemos a! 
terar qualquer um de seus campos (fig 6): 

ENTRE OOH O NUMERO DO REGISTRO 
R SER TROCRDO 



NOM: DELERKO 

IRR" TROCAR? 

TEL: 2114-533 

IRfi* TROCRR? 
TEL: 2114535 

REGISTRO NUMERO 2 RCRBRDO 
DE5EJR TROCRR OUTRO REGISTRO? 



fig- 6 



L 
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Se nao soubermos o numero, entra em funcionamen- 
to a mesma rotina de busca do ftem 5: 

5 . BUSCAR DE UM REGISTRO 

Digitando S para o campo NOM a busca comeca. Ao 
inves de digitar o conteudo completo do nome, vamos 
digitar apenas V (no fichario do nosso exempto temos 
dois nomes que comecam com V: Vicente e Valeria), 
programa busca os dois (fig. 7). 

PRESSIONE "S" ©URNDG UOCE 

TIUER O CRMPO 

riOM ■? 

EWTRE COM O CONTEUDO DE5TE CRMPO 

REGISTRO HUMERO e 

NOM: URLERIfl 

TEL: 4-5233S7 

DESEUR CCNTINURR R BUSCR^ 

REGISTRO NUMERO 7 

NOM: vICENTE 

TEL : 4 35S734- 

DESFJR COMTINURR R BU5CR? 

EUSCR COMPLETfl 

DESEUR FRZER OUTRfl BUSCR? 
"g§" 

fig. 7 

campo 3 

3. . APAGAR REGISTROS 

tern funcionamento analogo. Por prudencia, antes de 
apagar o programa, pede uma confirmacao (fig. 8) 

UOCE PRECXSR ENTRRR COM O NUMERC 
DO REGISTRO R SER RPRGRDO . 
UOCE DESEUR FRZEfi UHR PES0UISR 
5DBRE O NUMERO DOS REGISTROS? 

ENTRE COM O NUMERO DO REGISTRO 

R SER RPRGRDO 

NOM: UICENTE 

TEL: 4556734 

RPRGRR ESTE REGISTRO? 

■■{§•■ 

fig. 8 

campo 9 mostra uma ficha vazia apenas para lem- 
brar qual o formato do arquivo que esta sendo rodado 

(fig. 9). 

LISTRG£H DOS CRMPO-S DE 



NOME 
END 
CEP 
TEL 



PRESSIONE QUfiLOUER TECLR 
MEMOS "BRERK" 

fig. 9 

Finalmente, optando por 7 o leitor podera gravar em 
fita os registros efetuados at6 entao. Se o computador 



for urn TK85 poderemos optar por velocidade normal 
ou HIGH-SPEED. 

Lembre-se, porem, de uma coisa important I'ssima. Se 
o programs for interrompido por algum erro jamais digi- 
te RUN', sob pena de perder todo o fichario. programa 
deve ser sempre reiniciado com urn GOTO 1000. 



<J 






0BREH 

900 REM ESCOLHfl DO COHPUTADGR 

901 PRINT "SEU COMPUTflDOR E* : " ; 
TAB 2; "1. . .TKS2-C (15K)";TfiB 2; " 
2...TK63 ti6Kr*jTflB 2;"3...ZX© 
1 C16K)"jTftB 2;"4-. c .TIMEX CI6KJ" 
;TA8 2;"5,..CP 200";TAB 2;"6...N 
iZ5B00(16K) ";TflB 2; "7. . .TK82/83 

C64-KJ ";TflB 2;"8...TK85 tl6K)";TR 
S 2j"9,.,TKSS (4-3K) " 

910 LET HI=® 

915 INPUT ft 

920 LET ft = INT ft 

930 IF fl<i OR A>9 THEN GOSUB 60 
00 

94-0 IF R>0 AND ft < 1© THEN GOTO 9 
35 

950 GOTO 900 

955 LET HEHO=39B00 

960 IF ft<r>7 ftND fi<>9 THEN LET M 
EHO=6300 

970 IF fl=S OR ft=9 THEN LET HI=1 
1000 REM MENU 
1005 FAST 
1010 CLS 

1030 PRINT TAB 2; "COHRNDOS DO HR 
QUIUO HICROHOBBY" 
104-0 PRINT 
1050 PRINT "1..INSERIR REGISTROS 



1050 PRINT 

1070 PRINT 

10S0 PRINT 

1090 PRINT 

1100 PRINT 

1110 PRINT 
EGISTROS" 

1120 PRINT 

1130 PRINT 
TRO" 

114-0 PRINT 

1150 PRINT 



116© 
1170 
1180 
1190 

PTQ" 

1200 

1210 

1220 

1230 

124-0 

R?"; 

1250 

1260 

1270 

30 

1275 

310 

12S0 

1300 

131© 

1320 

1330 

1340 

1350 

1360 

1370 

1380 



PRINT 
PRINT 
PRINT 
PRINT 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



"2. .TROCRR REGISTROS" 
"3..APRGRR REGISTROS" 
"4..LI5TRR TODOS OS R 



"5,.BUSCfi DE UM REGIS 

"6..DRDENAR REGISTROS 

"7..GRftUftft REGISTROS" 
"8..HONTRR NOUO FICHft 

"9..LI5TRR CAMPOS" 

"OURL UQCE DESEJR USA 



INPUT ft 

LET fl=INT ft 

IF Rcl OR ft>9 THEN GOSUB 60 

IF R>0 AND ft<10 THEN GOTO 1 

CLS 

GOTO 1030 

CLS 

IF R = l THEN GOSUB 14-20 

IF ft =2 THEN GOSUB 1710 

IF ft =3 THEN GOSUB 2170 

IF R=+ THEN GOSUB 2670 

IF ft=5 THEN GOSUB 3300 

IF ft =6 THEN GOSUB 3830 

IF R=7 THEN GOSUB 4.132 



1390 IF ft=S THEN GOSUB 4250 

1400 IF ft =9 THEN GOSUB 4920 

14-05 FftST 

14-10 GOTO 1010 

1420 REM INSERIR REGISTROS 

14-30 LET N=N + 1 

14-4-0 SCROLL 

1450 PRINT "REGISTRO NUMERO ";N 

1460 IF N<=M THEN GOTO 1510 

14-70 LET N=M 

14.80 SCROLL 

1482 SLOU 

14-84. FOR 1=1 TO 12 

14-90 PRINT AT 11,2; "FIM DOS REGI 

=TROS 

14-91 



PRINT OT 



ll,2i 



14-94- NEXT I 

14.96 FftST 

1500 GOTO 1700 

1510 FOR 1=1 TO Nl 

1520 SCROLL 

1530 PRINT N*tl>;":"; 

154-0 INPUT I((N,DCI,i! 



TO Dd.,2) 



1550 PRINT ItiNjDd.l) TO D(I,2J 

1560 SCROLL 

1570 NEXT I 

1580 SCROLL 

1590 PRINT "OUER TROCAR ftLGUMA C 

1600 " INPUT ft* 

1510 SCROLL 

1620 IF ft*="S" THEN GOTO 1510 

1630 SCROLL 

1640 PRINT "REGISTRO "jN;" INSER 

I DO" 

1650 SCROLL 

1560 PRINT "DESEJR INSERIR MRI5 

REGISTROS?"; 

1670 INPUT ft* 

1680 SCROLL 

1690 IF R*="S" THEN GOTO 14,20 

1700 RETURN 

1710 REM TROCRR REGISTRO 

1720 SCROLL 

1730 SCROLL 

174-0 PRINT "pfiRft TROCRR UM REGIS 

TRO UOCE" 



1750 SCROLL 

1760 PRINT ' 

SEU NUMERO' 

177© SCROLL 

1780 PRINT ' 
AR SOBRE" 

1790 SCROLL 

1800 PRINT ' 



PRECISR ENTRRR COM O 



UOCE DESEJR PESOUI! 



O NUMERO DO REGISTRO 



1810 INPUT ft* 

1S20 SCROLL 

1830 IF ft*="S" THEN GOSUB 3300 

184.0 CLS 

1-S50 SCROLL 

I860 PRINT "ENTRE COM O NUMERO D 

O REGISTRO" 

1870 SCROLL 

1680 PRINT "ft SER TROCRDO" 

1890 SCROLL 

1900 INPUT A 

1910 LET ft=INT ft 

1920 SCROLL 

1930 IF R>0 AND ft < =N THEN GOTO 1 

960 

1940 PRINT "NUMERO DE REGISTRO N 

AO ItRLIDO" 

1950 GOTO 2110 

I960 FOR 1=1 TO Nl 

1970 SCROLL 

1980 PRINT N*(I3 ;":"; I*(ft,DtI, 1) 

TO D 11,2) > 

1990 SCROLL 
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200© PRINT TAB I0;"IRR" TROCRR?" 

2310 INPUT ft* 

2S20 SCROLL 

2030 IF ft*<>' - 5" THEN GOTO 2080 

204-0 PRINT Nt!D;":"J 

2050 INPUT Itlf),DII,i) TO Da,2) 

i 

2060 PRINT IIIRjDU.l! TO DCI^J 

> 

2070 SCROLL 

2080 NEXT I 

2398 SCROLL 

2100 PRINT "REGISTRO NUMERO ";R; 

" RCR8RDQ" 

2110 SCROLL 

2120 CRINT "DESEJfl TROCRR OUTRO 

QEGI5TRO?" 

213© INPUT ft* 

214-0 SCROLL 

2150 IF RS="S" THEN GOTO 1710 

216© RETURN 

2170 REM RPRGRR UM REGISTRO 

218© IF N>8 THEN GOTO 222© 

219© SCROLL 

220© PRINT "NENHUH REGISTRO NO F 

ICHRRIQ" 

2210 L-GTO £510 

2220 SCROLL 

2230 PRINT "UOCE PRECISR ENTRRR 

COM O NUMERO" 

2240 SCROLL 

2250 PRINT "DO REGISTRO ft SER RP 

RyflDO. '" 

2260 SCROLL 

2270 PRINT "VOCE DESEUft FR2ER UM 

R PESOUISR" 

2280 SCROLL 

2230 PRINT "SOERE O NUMERO DOS R 

EGI5TRG5 T" 

2300 INPUT R* 

231© c CROLL 

2320 IF RS="S" THEN GOSUB 3330 

2330 SCROLL 

234.0 PRINT "ENTRE COM O NUMERO D 

Q REGISTRO " 

235© SCROLL 

2368 PRINT "ft SER RPRGRDO" 

2370 INPUT fi 

2380 LET R=INT R 

2398 IF R>0 RND R < =N THEN GOTO 2 

4.30 

24-00 SCROLL 

24-10 PRINT "NUMERO DE REGISTRO N 

RO URLIDO" 

24.2® GOTO 2510 

2430 FOR 1=1 TO Nl 

24-40 SCROLL 

2450 PRINT N* (IJ ; " : "s I*(R,D (I, 1> 

TO D (1,2) 3 

24S0 NEXT I 

2470 SCROLL 

248© PRINT "RPRGRR ESTE REGISTRO 

24S0 INPUT ft* 

2500 IF RS="S" THEN GOTO 2520 

251© GOTO 2610 

2520 IF R=N THEN GOTO 2S80 

254-0 FOR I=R TO N-l 

2550 LET I*tl> =!*(!+!> 

256© NEXT I 

258® LET N=N-1 



2598 SCROLL 

250® PRINT "REGISTRO RPRGRDO" 

2610 SCROLL 

2520 PRINT "MRIS RLGUM REGISTRO 

PRRR RPRGflR?" 

263® INPUT R* 

264-0 SCROLL 

2650 IF ft*="S" THEN GOTO 218® 

2560 RETURN 

267© REM LISTRGEM DOS REGISTROS 

2680 SCROLL 

269© LET R=0 

270© PRINT "OUER R LISTRGEM DE T 

ODOS GRHPOS?" 

2710 INPUT R$ 

2720 IF ft* ="3" THEN LET fi = l 

2730 SCROLL 

2758 FOR 1=1 TO Nl 

276© LET R (I) =R 

277© IF ft = l THEN LET R(IJ=I 

2780 NEXT I 

280© LET J=N1 

2818 IF R=l THEN GOTO 2970 

282© SCROLL 

2S30 PRINT "PRESS IONE ""5"" PRRft 
OS CRMPOS" 



~;S4© 
2850 
RR" 
2860 
2S7© 
288© 
2390 
2900 
231© 
292© 
2930 
234© 
235© 
236® 
2978 
2980 
SSORR 
299© 
3000 
3305 
3810 
3015 
URR" 
382© 
303® 
3348 
3050 
3868 
307® 
305© 
<K3 



SCROLL 
PRINT "QUE 



UOCE DESEUR LIST 



LET U=e 

SCROLL 

FOR 1=1 TO Nl 

SCROLL 

PRINT N* ill j " ?"; 

INPUT ft* 

PRINT R* 

IF ft*<>"5" THEN GOTO 2968 

LET U=J+1 

LET ft *U> =1 

NEXT I 

SCROLL 

PRINT "NO VIDEO OU Nfl IMPRE 

(VsXj " 
INPUT ft* 
IF R* {1} ="] 
SLOU 
SCROLL 
PRINT "DXGTTE C 



THEN GOTO 313S 



PRRR CO NT IN 



3090 

3100 

3106 

05 

3110 

3115 

312© 

314© 

315© 

3155 

316© 



SCROLL 

PRINT TRS 5;L$ 
SCROLL 

FOR 1=1 TO N 
FOR K=l TO U 
SCROLL 

PRINT N* <ft {«) J ; 
1> TO D(R <KJ ,2> ) 
NEXT K 
SCROLL 
IF INKEYS 



!*(!,£> *fi 



<y - c - THEN GOTO 31 



NEXT 

FRST 

GOTO 

CLS 

LPRINT 

LPRINT 

LPRINT 



3250 



TAB 5;L* 



317© FOR 1=1 TO N 

318® FOR K=l TO J 

313© LPRINT 

3280 LPRINT N*(R(K>Jj" 
R(K) jl) TO D(R<KJ,2>J 

321© NEXT K 

3220 LPRINT 

3225 LPRINT 



;it(i,D( 



323© NEXT I 

3250 SCROLL 

3260 PRINT "QUTRfi LISTRGEM?"; 

3270 INPUT R* 
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THEN GOTO 2670 
DE UH REGISTRO 



--©«■•■ QURN 



328@ IF ft*="S" 

3290 RETURN 

330® REM BUSCft 

33 IB SCROLL 

3320 PRINT "PRES5IONE 

DO UOCE " 

3330 SCROLL 

3340 PRINT TIMER O CRMPO" 

3350 FOR 1=1 TO Hi 

3350 SCROLL 

3370 PRINT N*(I);" 7"; 

3380 INPUT R$ 

3390 IF R*="5" THEN GOTO 34-40 

3400 NEXT I 

34-10 SCROLL 

34-20 PRINT "SELECRO CRNCELfi&R" 

3430 GOTO 3750 

344S SCROLL 

3450 PRINT "ENTRE COM O CQNTEUDG 

DE5TE CRMPO" 
3460 INPUT fl* 
3470 LET fl=LEN ft* 
3480 IF R<1 THEN GOTO 3450 
3490 IF R<= <D (1.2) -D i I ., lj +1) THE 
N GOTO 3520 

3500 LET R=(&(I J a)-0(I,ll+l) 
3510 LET R*=fl$*l TO R) 
3520 LET R^fl-1+Dd^l) 
5530 LET F=8 
3S40 LET Q=8 
3560 FOR U = l TO N 

357© IF R4=I*(J J D £1, It TO RJ THE 
N GOSUB 3650 

3580 IF Q-l THEN GOTO 3680 
3590 NEXT U 
3610 SCROLL 

3520 PRINT "SUSCfl CCMPLETfl" 
3S3Q SCROLL 
3640 IF F=0 THEN PRINT "REGISTRO 

NRO RCHRDO" 
3650 GOTO 378© 
3660 SCROLL 

3t>70 PRINT "REGI5TRO NUMERO ' ; U 
3680 FOR K = l TO Ni 
3590 SCROLL 
370© PRINT N* (K ?;":"; I* IJ,D <K, 1> 

TO D * K j 2 ) i 
371© NEXT K 
3720 SCROLL 
3738 PRINT "C>ESEJfl 
USCR?" 

374© INPUT B$ 

375© IF B*="N" THEN LET 

3768 LET F=l 

3770 RETURN 

378© SCROLL 

3790 PRINT "DE5EJH FRZER OUTRR & 

USCR'?" 

3600 " INPUT fl* 

3Q18 IF ft* = *'5" THEN GOTO 3300 

3828 RETURN 

3830 REM QRDEM DOS REGISTROS 

384© SCROLL 

3850 PRINT "E5TR ROTINR ORDENR R 

LFRNUMERICR-" 

3860 SCROLL 

3878 PRINT "MENTE COM BASE NUH C 

RMPO" 

3SS0 SCROLL 

389© PRINT 
O CRMPO " 

3900 SCROLL 

3918 PRINT 

RSE" 

3920 

393© 

3940 

3950 

396© 

3970 

3980 

3990 



CONTINURR R B 



&=1 



PRESS IONE 



"5" 



PRRh 



"QUE IRft" SERUIR DE EJ 



SCROLL 

FOR 1=1 TO Nl 

SCROLL 

PRINT N* (I) ; " ' 

INPUT R$ 

IF R*="S" THEN 

NEXT I 

SCROLL 



GOTO 4820 



4880 PRINT "ORDENRCRO CRNCELRDR" 

4810 GOTO 4150 

4828 SCROLL 

4848 FOR -J = l TO N-l 

4850 FOR K=J TO N 

4080 IF mj.Da.l) TO D<Z,2))<= 

I*tK,D<I,l> TO D(I,2)J THEN GOTO 

4073 
4078 LET B$ = IJU) 
4871 LET I*£U)=I$£K3 
4372 LET IS (K) =B* 

4873 NEXT K 

4874 NEXT J 
40?& SCROLL 

4877 PRINT "ORDENRCRO COMPLETft" 

4838 SCROLL 

489® PRINT "ORDENRR COM BASE EM 

OUTRO CRHPO?" 

4180 INPUT R* 

4118 SCROLL 

4120 IF R4="S" THEN GOTO 3830 

4138 RETURN 

4132 REM GRRURR PROGRRMR 

4134 IF HI=0 THEN GOTO 4146 

4135 PRINT "PREFERE GRRURR EM UE 
LOCIDRDE NORMRL <N) OU HIGH-5 
D EEDT' CH) " 

4137 INPUT C* 



BASIC & UNGUAGEM 
DE MAQUINA 


NiVEL 


CRIANQAS 


10h 


INtCIACAO 


NIVEL 1 


ADULTOS E 
ADOLESCENTES 


20h 


INICIACAO 


NiVEL 2A 


ADULTOS E 
ADOLESCENTES 


20h 


APROF. EM APLICACOES 
ADMINISTRATES 


NIVEL 2B 


ADOLESCENTES 
JOGOS 


20h 


APUCAQOES EM 
JOGOS 


NIVEL 3 


ADULTOS E 
ADOLESCENTES 


40h 


UNGUAGEM DE MAQUINA 
ASSEMBLY Z80 


NIVEL 4 


ADULTOS E 
ADOLESCENTES 


40h 


APROF. DE LINGUAGEM 
DE MAQUINA 


Nucleo 
/aei orientacao 

I W0i<? J<?StUQ05 Inlofmsfdes s inserl^6*i: 

V V / Av. Brig. Faria Lima, 1.451 - 3? - Cj. 31 
! * Tel.; 813-4555 - CEP 01451 - Sao Paulo-SP 
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4-138 IF C* = "N" THEN GOTO 4146 
4-139 CLS 

4-14-0 PRINT "COM O GRRURDOR EM PO 
SICRD DE GRRURR DIGITE R TECL 
R H" 



■4-14-1 
4142 

4-145 
4-14-5 
4-15S 

4-iee 



INPUT R£ 
IF ftt="H' 



1008 



THEN LET H=USR 84 



GOTO 

CL5 

SCROLL 

PRINT "PONHft ( 
POSICRO DE" 
4179 SCROLL. 
4 180 PRINT "GRRURR, 

ft GRRURR" 
4190 SCROLL 
4200 PRINT 
ECLR : 
421© 

4230 
4240 
4250 
4280 
4270 



JRRURDQR EM 



PftRfi CQMECRR 



PRES5IONE SURLQUER T 



PAUSE 3000 

SCROLL 

SRUE LS 

GOTO 5 00(0 

REM MONTPR FICHRRIO 

SCROLL 

PRINT ' ©URL SERR' 



O NOME DO 



FICHRRIO 
4272 INPUT 



4273 
4274 
4!=:76 
128) 
4278 
4290 
4292 
4294 
4300 
S***" ; 
432© 
4330 
4340 
4350 
4J&0 
RRR O 
4370 
4380 
- 15) 
4390 
4400 
4410 
4415 
4420 
4430 
4440 
CRDft 
4450 
4460 
E5" 
4470 
4480 
4490 
4500 
4510 
4520 
DO 



DIM LtlLEN Qf/ 
FOR Q=l TO LEN 
LET Li tQJ =CHR£ 



(CODE 



O* (O; 



NEXT 
SCROLL 
PRINT ' 
SCROLL 
PR INT ' 



FICHRRIO 



L4 



DE5EJR QURNTDS CRMPO 



INPUT Nl 

PRINT Nl 

SCROLL 

LET K=15 

PRINT "OURNTOS CRRRCTERE5 P 

TITULO" 
SCROLL 
PRINT "DE CRDfi CRMPO ? (0 R 



INPLfT K 

IF KM5 THEN LET 

IF K<0 THEN LET 

PRINT K 

SCROLL 

LET L=31-K 



K = 15 

K=0 



PRINT 
CRMPO" 
SCROLL 
PRINT 



'O TRMRNHO MAXIMO" Dl 



E» DE 



l; 



CRRRCTER 



4530 

4540 

RMPO' 

4558 

45S8 

4570 

4580 



DIM M*(N1,K! 
DIM R(N1> 
DIM D(N1,2) 
SCROLL 
SCROLL 
PRINT 
CRMPO" 



ENTRE COM DESCRICOE? 



SCROLL 
PRINT ' 

LET J=l 
SCROLL 
FOR 1=1 
SCROLL 



E O COMPRIMENTO DO C 



TO Nl 



4598 LET RJ="" 

4680 PRINT ■'CRMPO ";I;".'-; 

4610 INPUT R$ 

4620 LET Rt=R$f" 



4630 
4635 
4640 
4658 
<1-" 
4660 
4678 
4&88 
4690 
470S 
4718 
4 720 
4730 
+ 740 
4 750 
476© 
4770 
2 ) ) /-J ) 
4780 SCROLL 
4798 PRINT 
EGISTROS " 
4808 SCROLL 
4810 PRINT 

";M 
4820 SCROLL 
4330 PRINT 
CE &E5EJR?" 
4340 INPUT R 
4858 LET R = INT fl 
4868 IF R>8 RNO RcH 
4878 DIM I$IH,J) 
4872 SCROLL 
4874 PRINT M 
4880 SCROLL 
4882 FRST 

4898 PRINT "DIGITE 
ENOS BREfiK" 
4900 PRUSE 30680 
4910 RETURN 
4928 REM LISTRGEM DOS 
4930 SCROLL 
4948 PRINT 'LISTRGEM DOS 

4945 SCROLL 

4946 SCROLL 

4947 PRINT LS 
4960 SCROLL 

4952 SCROLL 

4954 PRINT -^ =— — < 



LET N$(I! =R* 

PRINT NS(I> 

SCROLL 

PRINT "COMPRIMENTO DO CRMPO 

Lj ") : **; 

INPUT n 

IF ft<l THEN LET R=l 

IF fl>L THEN LET R=L 

PRINT R 

LET D il, 1) =J 

LET U=-J+R 

LET D il,2) =U-i 

SCROLL 

NEXT I 

LET U=U-1 

LET N=8 

LET M=INT ( CMEMQ-NHM3I-L + 1 



O NUMERO MRXIMO DE P. 



URLE RPROXIMRDRMENTE 



©UR.NTos REGISTROS UO 



THEN LET M=R 



O0UER TECLR CM 



CRMPOS 



CRMPOS 



4968 FOR 1=1 TO Nl 

4930 SCROLL 

499B PRINT NJJDj":" 

5080 NEXT I 

5010 SCROLL 

5012 SCROLL 

5014 PRINT 



5S1-S 


SCROLL 


5028 

ECLR 1 

5821 


PRINT "PRE5SIONE QURLQUER T 


SCROLL 


5022 


PRINT "HENOS ""BREAK 


5030 


SCROLL 


5048 


PRUSE 30800 


5050 


RETURN 


5860 


STOP 


5808 


SLOW 


&0I0 


FOR 1=1 TO 12 


t>030 


PRINT RT 8>0;'"POR FRUQR ENT 


RE B 


E gj" 


6040 


PRINT RT 0,8j-ROR FRUOR ENT 


RE 1 


E 9" 


6050 


NEXT I 


t>060 


FRST 


6878 


RETURN 


7080 


STOP 




O 



L 
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A FITA DO MES 

Simulador de Voo 



A fita que estamos oferecendo de brinde para os nos- 
sos assinantes cont^m um jogo bastante realista de 16 K 
intituiado "SIMULADOR DE VOO". A adaptacao feita 
para o Brasil de um programa originaimente ingles criou 
um pequeno grilo, felizmente ja" sanado, p3ra o TK85 
tveja DiCASdonP 2). 

Inicialmente o programa pergunta se queremos o voo 
cornpleto ou apenas a fase de aterrisagem. Aconselha- 
mos os "manicacas" a se limitarem iniclalmente a ater- 
risagem;. Por maior motivo, ao serem questionados se de- 
sejam ou nao os efeitos do vento, aconselhamos respon- 
der "Nao". 



Ao comepar o programa, inicialmente temos, uma vi- 
sao do interior da cabine. Pelo parabnsa vemos a linha 
do horizonte. Puxando o manche para treis (com 
joystick, ou com a tecia 6) vemos o horizonte descer, 
pois o nariz do aviao esta" apontando para cima. 

Da mesma forma, digitando 7 fazemos o nariz baixar 
e vemos o horizonte subindo. ni'vel do horizonte esta" 
indicado num mostrador a esquerda. 

Cuidado, pois este instrumento tern um pouco de ineV- 
cta. Usando as teclas 5 e 7 fazemos o aviao se inclinar 
para esquerda e para a direita. Obviamente veremos o 
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horizonte se inclinar ao contrario, pois o referenda! esta 
fixo na cabine e nao na Terra, 

Abaixo do mostrador de horizonte temos o indicador 
de combust fvel, cuja Indicagao nao e crftica quando es- 
colhemos apenas a fase de aterrisagem, mas que se torna 
urn grande fator de angustia quando o v6o e longo e es- 
tamos perdidos. 

A direita temos o indicador do regime de rotagao do 
motor. Digitando P (de forma contfnua, pois todos os 
controles sao do tipo INKEY$) a rotagao aumenta, 
aumentando a velocidade indicada logo a esquerda em 
KM/H e, obviamente, o consumo de combusti'vel. Digi- 
tando o regime diminui: (cuidado para nao perder a 
sustentag§b). 

alti'metro indica a altura em metros e sua marcacao 
pode ser alterada levantando ou baixando o nariz do 
aviao. Cuidado que, ao perder altura, o aviao ganha ve- 
locidade. 

Digitando F o flap e abaixado, aumentando a susten- 
tagao em baixa velocidade (aterrisagem) e D ele e retira- 
do. Dar flap em al'ta velocidade produz desastres. 

Para abaixar ou levantar o trem de aterrisagem basta 
digitar G. Antes de aterrisar verifique o mostrador do 
trem ao lado do de flap, para nao correr o risco de ras- 
par a barriga na pista. 

No lugar de honra do painei temos a bussola que (nos- 
tra o rumo do aviao. A direita da bussola temos o radio- 
goniometro que indica o rumo (em graus) e a distancia 
(em KMSlate o radiofarol do aeroporto. Este rumo 6 
mostrado tambem de forma analogica pelo mostrador 
circular com modelo de aviao. 



Se digitarmos M (mapa), a cabine desaparece do vfdeo 
e em seu lugar vemos o mapa da regiao. No alto a es- 
querda continuamos tendo acesso a leitura do rumo do 
aviao. aviao e o rddio-farol sao representados como 
pontos piscando. Querendo fixar o sistema de navega- 
gao em um radio-farol situado em outra cidade basta di- 
gitar B ate que a cidade escolhida fique piscando. Em 
vbos longos isto pode ajudar. 

Digitando V novamente voltamos para a cabine e ve- 
mos no radio goniojnetro o rumo e a distancia em rela- 
gao ao novo rddio-farol fixado. 

Se o aviao bater contra o solo, ou contra os morros 
indicados no mapa, havera um quebra-quebra e veremos 
relatorio do acidente para nos orientar nas proximas 
tentativas. 

A fase final da aterrisagem e a mais emocionante e 
lembra os velhos tempos em que a maior preocupagao 
do piloto era de nao deixar o cachecol embaragar na he- 
lice. 

Com o video mostrando a cabine, digitar V: se a dis- 
tancia ate o aeroporto for suficientemente pequena, ele 
aparecera em perspectiva e a habilidade do piloto nao 
dependera matstanto dos instrumentos. Apesar disto, 
ainda sao visi'veis o centralizador de descida, o velocfme- 
troe o alti'metro. 

Se nesse momento voce lembrar do trem de aterrisa- 
gem, e so digitar V novamente que o painei da cabine 
volta a aparecer. 

Em pouco tempo voce se tornara" um hcibil piloto, 
tanto visual quando em voo por instrumentos. 

O 




i 
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Dicas 

Apagando a Tela 



Quando montamos uma tela corn muitas tinhas usan- 
do o SCROLL, nos defrontamos normalmente com um 
problema: apagar a tela com um CLS e uma tarefa que 
pode ser muilo demorada. Quern ja brincou com o simu- 
lador de voo ja" sentiu isso na mensagem final: DIGITE 
RUN PARA VOAR NOVAMENTE. Digitando RUN (e 
NEW LINE) deve se esperar um bocado para que a tela 
se apague totalmente e o jogo reinicie. 
Vamos entao fa2er algumas experiencias: 
Digite inicialmente o programa listado na fig. 1 (A$ 
tern 32 o's). Com o computador no modo SLOW rode o 
programa. 

110 LET fl$="OOODOOOOOOOOOOOOOOO 
0000000000000" 

120 FOR 1=0 TO 5 

130 SCROLL 

14-0 SCROLL 

IS© SCROLL 

160 PRINT R$ 

170 NEXT I 

190 CLS 

200 GOTO 100 

^g. i 

Note quanto tempo demora o CLS para apagar a tela. 

Tente dar um BREAK enquanto a tela esta sendo apa- 
gada: inutil. E necessario esperar que a tarefa se com- 
plete. 

Como evitar isso? Uma solucao e colocar o compu- 
tador em SLOW enquanto a tela esta sendo escrita, mas 
em FAST quando esta sendo apagada. 

Acrescente as linhas; 

100 SLOW 



180 FAST 

ao seu programa, de maneira que ele fique como na 
fig. 2. 

100 SLOU 

110 LET fi $ =" OCOODODOOOOOOOOOOOO 
OOOOOOOOOOOOO " 

120 FOR 1=0 TO S 

130 SCROLL 

14.0 SCROLL 

15© SCROLL 

160 PRINT Ft% 

170 NEXT I 

1S0 FRST 

190 CLS 

200 GOTO 100 

fig. 2 

Rode o programa assim alterado e veja como as coisas 
melhoram um pouco. 




Mas, sera - que nao existe uma maneira mais elegante? 

Podemos utilizar uma subrotina em linguagem de ma- 
quina, para encher a tela de espacos vazios. 

Uma subrotina em linguagem de mdquina e uma se- 
quencia de bytes que deve ser inseridas em algum lugar 
da memoria e e chamada pela funcao USR. Toda subro- 
tina desse tipo tern uma ultima instrucao analoga ao 
RETURN, que faz voltar ao programa em BASIC No 
curso de ASSEMBLY que estamos publicando discutem- 
se as melhores localizacoes para estas subrotinas. Por en- 
quanto vamos localiza la numa linha REM do programa 
em BASIC. 

Digite entao: 



1 REM 



Opontos) 



Sem apagar o programinha anterior acrescente as li- 
nhas: 

10 FOR I = 16509 TO 16517 
20 PRINT I, PEEK I 
30 NEXT I 
40 STOP 

e agora digite RUN. 

A funcao PEEK le o byte contido no endereco de seu 
argumento. Desta forma o programinha em questao esta 
lendo os bytes contidos nos enderecos de 16509 a 
16517. 

endereco 16509, no TK, contem o primeiro byte 
do programa em BASIC. Pegue o manual do TK (Apen- 
dice A} e veja o que podemos deduzir do que mostra 
a tela (fig. 3). 

16509 

16510 i 

16511 5 

16512 

16513 234- 
1651* 27 

16515 27 

165 16 27 

16517 116 

fig. 3 

Os enderecos 1 6509 e 1 6510 con t^rn os bytes que in- 
dicam o numero da linha. No nosso caso trata-se da li- 
nha 01. 

Os enderegos 16512 e 1651 1 (nesta ordem) mostram 
o comprimento da linha (no nosso caso 05 bytes, in- 
cluindo um byte final que indica que a linha acabou. 

endereco 16513 contem o byte 234. No apendice 

A vemos que ele corresponde ao REM. A seguir temos 

> 
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os 3 pontos 27, 27 e 27 e finalmente o byte que indica 
NEW LINE, ou seja, esta linha de programa acabou 
{fig. 4). 



ENDERECO 


BYTE 


SIGNIFICADO 


16509 
16510 


a 
1 


linha 1 


16511 

16512 


5 



comprimento 
5 bytes 


16513 


234 


REM 


16514 
16515 
16516 
16517 


27 
27 
27 

118 


NEW LINE 



fig. 4 

Como podemos observar, o primeiro byte livre apos o 
REM e o de endereco 1 6514, que por enquanto, cont^m 
o byte 27 (ponto). 

Se quisermos alterar seu conteudo basta usar a instru- 
gaoPOKE: 



DICiTE 



POKE 16514,201 



e liste o programa novamente. 
Olhe para a linha 1 (fig. 5). 

1 REM TRM . . 

10 FOR I=16S09 TO 16517 

20 PRINT I, PEEK I 

30 NEXT I 

40 STOP 

100 SLOU 

110 LET Rt="OOOQOOOOOOOOOOOOOOO 
QOOOOOOOOOOOO" 

120 FOR 1=0 TO 6 

130 SCROLL 

14.0 SCROLL 

150 SCROLL 

160 PRINT H$ 

170 NEXT I 

180 FRST 

190 CLS 

200 GOTO 100 

fig. 5 

primeiro dos tres pontos, justamente o que estava 
no endereco 16514, foi substituido por TAN, que 6 jus- 
tamente o caracter 201. Rode o programa e voce vera' 
esta substituigao (fig. 6). 



.6509 
16510 
16511 
16512 
L6513 
16514- 
16515 
16516 
16517 

fig. 6 





i 

5 



234 

201 

27 

27 

IIS 



Vamos agora apagar as linhas 1 , 10, 20, 30, 40, 100 e 
180, voltando, por tanto, ao programa da figura 1. 

Como a subrotina que vamos introduzir tern 21 bytes, 
vamos digitar uma linha 1 REM seguida de 21 pontos 
para reservar 21 enderecos na memoria. 

A seguir, para nao ter que fazer 21 POKE'S seguidos 
vamos digitar esta pequena rotina: 

10 FOR I = 16514 TO 16514 + 20 

20 PRINT I, 

30 INPUT P 

40 PRINT P 

50 POKE l,P 

60 NEXT I 

70 STOP 

e rode-a com o computador em SLOW. Entre com os 
bytes listados na figura 7. Liste o programa e veja como 
■ficou estranha a linha 1 REM (fig. 8). 

16514- 42 

165 IS 12 

ISS IS 64 

16517 1 

L651S 213 

16519 2 

16520 35 

16521 12& 

16522 254 

16523 11& 
15524 4@ 
16525 3 
±t>525 62 
16527 
I652S 119 

16529 11 

16530 120 

16531 177 

16532 200 

16533 24 

16534 241 

fig- 7 

1 REM E£RND»5TRt *7 ?—?HCOS 
LET 

10 FOR 1=16514 TO 16514+20 

20 PRINT I> 

30 INPUT P 

40 PRTNT P 

fig. 8 

Agora voce ja tern uma pequena subrotina em lingua- 
gem de maquina na linha REM Apague as linhas 10, 20, 
30,40, 50, 60e70, digite: 

100 SLOW 

e rode o programa. Tudo continua como no comeco, 
pois o programa em BASIC ignora tudo o que estiver nu- 
ma linha REM. Seu programa em linguagem de maqui- 
na esta - bem quietinho e so serd despertado por um USR. 
Vamos agora chamar a subrotina. A linha : 

190 CLS 

pode ser substitu ida por 

190 LET LIMPEZA = USR 16514 
195 CLEAR 
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A variaVel LIMPEZA nao serve para nada: sua unica 
finalidade 6 poder fazer constar da linha USR 16514. 
A tinha nao poderia comecar por USR pois esta e uma 
fungao, e nao uma KEY-WORD. argumento 16514 
corresponde ao primeiro byte apos o REM da linha 1. 

Rode agora o programa assim alterado. Bern mais ra- 
pido nao? 

De urn BREAK enquanto a tela estiver enchendo, Se 
a seguir voce digitar NEW LINE, devera" outra vez espe- 
rar que a tela se apague lentamente. 

Vamos agora fazer outra experiencia: no endereco 
16527 foi cofocado o byte do caractere que precisa en- 
cher a tela. No nosso caso, o byte era 0, correspondents 
a um espaco vazio. 

Vamos escolher um outro caractere correspondente 
ao byte 146. 



Vamos digitar entio: 

POKE 16527,146 

Digite RUN e veja o que acontece. 
De um BREAK e liste o programa. 
Vamos produzir agora uma ultima loucura (esta dica 
vai ter um final apoteotico). 
Digite esta rotina: 

5 SLOW 

10 FORC= 128 TO 191 

20 POKE 16527, C 

30 RAND USR 16514 

40 NEXTC 

50 STOP 

e rode o programa com RUN. 

Voce saberia explicar o que aconteceu? 

O 



Dices 



Gravagao automatica 

Um dos primeiros erros cometidos pelos principiantes 
em TK e o de comprar fitas cassete de longa duracao e 
nelas gravar uma grande quantidade de programas. Apos 
um certo pen'odo de experiencia percebe-se que esta tec- 
nica apresenta dois problemas: 

1) Fitas de longa duracao sao mais delgadas e mais 
frageis. 

2)Muitos programas numa unica fita produzem buscas 
demasiadamente demoradas. 

aconselhavel, entao, e comprar fitas de curta dura- 
gao e gravar poucos programas nelas, 

ideal seria a gravacao de um unico programa por fi- 
ta. A busca seria imediata. 

Isto pode ser feito quando dispomos de programas 
longos, 

Se os programas forem curtos (1 a 4 K) e nao exigi- 
rem armazenamento de dados, podemosdigita-los todos 
numa unica sequencia colocando no programa um menu 
inicial proporcionando a escoiha. 

Obviamente este processo aumenta um pouco o tem- 
po de transferencia de fita para a RAM do computador 
e exige expansao de memoria. 

tempo gasto na transferencia, porem, e altamente 
compensado pela economia na busca do programa. 

Entretanto, por mais curta que seja a fita, dificilmen- 
1e ela sera totalmente tomada pelo programa. Vale a pe- 
na, entao, gravar o mesmo programa repetidas vezes: um 
pequeno acidente de gravacao, uma interferencia de uma 
emissora de FM, uma falha no revestimento da fita, poe 
programa a perder. Uma gravacao multipla ja" diminui 




o risco de perda tlembre-se da Lei de Murphy). 

Para que o processo de repeticao da gravacao nao se 
torne enfadonho, podemos usar um pequeno truque. 

Digamos, por exemplo, que se queira gravar, varias ve- 
zes, o programa "ARQUI VO" que e oferecido aos lei to- 
res neste numero. Basta entao, acrescentar ao fim do 
programa as linhas mostradas na fig, 1, colocar a fita no 
comeco, dar o comando 

GOTO 9000 
e ir tomar um cafezinho. 



901? PRINT "DIGITE 
90£0 PRUSE 300 
9030 GOTO 9000 



'BREAK" 



fig. 1 

A linha 9030 f3ra o processo se repetir n vezes. 

Quando este programa for carregado, novamente no 
computador, aparecera" a mensagem: 

DIGITE 'BREAK" 
mas nao se apresse; se a pausa de tempo for superada o 
programa poe o computador no modo "SAVE", mas 
nao e apagado da memoria Os riscos que aparecem na 
tela, inclusive, sao caracten'sticos da emissao e nao da re- 
cepcao. Basta digitar "BREAK" a qualquer momento e 
NEW LINE, que veremosa listagem do programa, 

Vamos entao organ izar nossa biblioteca de programas 
e cuidado para nao tomar cafezinhos em excesso. 
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PROGRAMS no 


T T7TTOR — - ^°°*7\ 


i rLv^voTrii-y.viri \j\j 


LiiLi i un 




• L 


*, 


Crepe 




_ • 


v**ft 


J 






^9. 




Luiz G.C. Antunes 




%? 




1360 PRINT 




1378 PRINT "UOCE TEM ";CT;" CRUZ 


Este jogo e um jogo de dados muito conhecido nos 


EIROS. " 


cassinos de todo o mundo. 


13S0 PRINT 

1390 PRINT "CRDR FICHR URLE 108 




CRUZEIROS. " 


Joga-se com fichas, voce joga contra a banca, que, nes- 


140© PRINT 


* 


1410 PRINT "QUER TROCRR FICHR P.- 


te caso e o computador. 


DINHEIRO (S/N) ?" 


Se o resultado na primeira vez for 7, ou 1 1, a banca 


1420 INPUT R* 


vence, se for 2, 3 ou 12, voce vence. 


1430 IF R$="5" THEN GOSUB 1970 


1440 PRINT 


Se nao for nenhum desses resultados, o jogo f ica inde- 


1450 PRINT "QUER TROCRR DINHEIRO 


finido, e jogam-se os dados novamente. 


P/FICHfl tS/N) 7" 
1450 INPUT R$ 


Agora, se a banca repetir o numero anterior, voce per- 


1470 IF R$="S" THEN GOSUB 2080 


de. E se a soma dos dados for 7 voce vence. 


1430 PRINT 

1490 PRINT "QUER RPOSTRR tS^NJ 7 


©SREH C-MICROMEGR 1983 


1500 INPUT R$ 


10 10 LET CT=0 


1S10 IF R*o"S" THEN GOTO 1898 


IS2S CL5 


1520 PRINT 


1030 PRINT 


1530 PRINT "GURNTflS FICHflS" 


104.0 PRINT TRB 3; "JOGO DE CREPE" 


1548 INPUT R 


1050 PRINT 


1550 IF R>F THEN GOTO 1530 


1060 PRINT 'U.SRBE RS INSTRUCOES 


1560 IF R<0 THEN GOTO 1530 


(5/N) 7" 


1570 IF R=0 THEN GOTO 1390 


1O70 INPUT R$ 


1580 GOSUB 2330 


1088 IF fl$="S" THEN GOTO 1310 


1598 DIM DC2) 


1090 CLS 


1588 LET D(l) =D1+D2 


1100 PRINT "IN5TRUCOES" 


1618 IF D(1J=7 OR D(l)=ll THEN G 


1110 PRINT 


OTO 1630 


1120 PRINT "O CREPE E UM JOGO DE 


1&20 GOTO 1658 


DRDOS. JOGR -SE COM FICHRS.U.JOG 


1S30 GOSUB 2210 


R CONTRR R BRNCR." 


1640 GOTO 1SS0 


1130 PRINT 


1650 IF D(l)=2 OR D(l)=3 OR D(ll 


1140 PRINT "SE O RESULTRDO DOS D 


=12 THEN GOTO 1578 


RDOS Nfi PR I MEIRR JOGRDR FOR 7 O 


1660 GOTO 1690 


U 11,R BRNCR UENCE , " 


1670 GOSUB 2270 


1150 PRINT 


16B0 GOTO 1B50 


1160 PRINT "SE FOR 2,3 OU 12.V.U 


1690 PRINT 


ENCE" 


1700 PRINT "JOGO INDEFINIDO.PRES 


1170 PRINT 


SIONE R TE CLR <NEU LINEj. P/JOG 


1188 PRINT "SE NRO FOR NENHUM DE 


RR NOURMENTE OS DRDOS." 


SSES.O JOGO FICR INDEFNIDO , £ JO 


1718 INPUT B* 


EflM-SE OS DRDOS DE NOUO," 


1720 GOSUB 2330 


1190 PRINT 


1730 LET D(2)=D1+D2 

1740 IF DI1)=D(2) THEN GOTO 1760 


120© PRINT "PRESSIONE fl TECLfl <H 


EU LINE> PyCOMTINUflR." 


1750 GOTO 1780 


1210 INPUT B$ 


1760 GOSUB 2210 


1220 C1_S 


1770 GOTO 1850 


1230 PRINT " INSTRUCOES <CONTINUfi 


17B8 IF D tSi =7 THEN GOTO 1808 


CRO) : " 


1790 GOTO 1S28 


1240 PRINT 


1600 GOSUB 2270 


1250 PRINT "RGORR,SE R BRNCR REP 


1810 GOTO 1850 


ETIR O PONTO RTERIOR.U.PERDE." 


1320 LET DC1)=D£21 


1260 PRINT 


1830 GOTO 169© 


1270 PRINT "E SE R SOMR DOS DRDO 


1840 PRINT 


S FOR 7,U. GRNHR." 


1850 PRINT "OUER CONTINURR JOGRN 


1288 PRINT 


DO CS^N) 7" 


1298 PRINT "PRESSIONE R TECLfl <H 


I860 INPUT R* 


EU LINE> P/COMECRR R JOGRR-" 


1870 CLS 


1300 INPUT B* 


18B0 IF R$="S" THEN GOTO 1320 


1310 LET F=10 


1390 PRINT "SEU SRLDO E DE ";F;" 


1320 CLS 


FICHRS" 


1330 PRINT "BEM UINDO R MESR DE 


1900 PRINT 


CREPE." 


1910 PRINT "E DE ";CTj" CRUZEIRO 


1340 PRINT 


S. " 


1350 PRINT "UOCE TEM ";F;" FICHfl 


1920 PRINT 


5 . " 


1930 PRINT "TENHfl UM BOM DIR" 

> 



m 
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3,94.0 PRINT TAB 12; "TK CROUPIER." 

1950 STOP 

1960 REM SUB FICHfi/DINHEIflO 

1970 CLS 

1980 PRINT "QURNTAS FICHRS ?" 

1990 INPUT C 

£©©0 IF OF OR C<0 THEN GOTO 197 

Q 

201© LET CR=C*100 

2020 LET CT=CT+CR 

2930 LET F=F-C 

204.0 CLS 

2050 PRINT "U.TEH ";F;" FICHRS E 

";CT;" CRUZEIROS." 

20S0 RETURN 

2070 REM SUB DINHEIHO/FICHFI 

20S0 CLS 

2090 PRINT "OURNTOS CRUZEIROS ?" 

2100 INPUT D 

2110 IF D>CT OR D<0 THEN GOTO 20 
60 

2120 LET FP=INT (D/1S8) 

2130 LET CT=CT-D 

214,0 LET F=F+FP 

2150 CLS 

21S0 PRINT "U.TEH ";F;" FICHRS E 

'■;CT;" CRUZEIROS." 

2170 RETURN 



21S0 REM SUB ERRO 

2190 PRINT "URLOR ILEGRL.POR FflU 

OR REESCREUfl" 

2200 RETURN 

2210 REM SUB PERDEDOH 

2220 PRINT 

2230 PRINT "H ESRNCR UEHCE." 

2240 PRINT 

2250 LET F=F-R 

22S0 RETURN 

2270 REM SUB UENCEDOR 

22S0 PRIKT 

2290 PRINT 'A BRNCR FERDE . " 

2300 PRINT 

2310 LET F=F+R 

2320 RETURN 

2330 REM SUB DRDOS 

2340 LET £>1 = INT (6*RND) +1 

2350 LET £>2 = INT (6*RND> +1 

23B0 CLS 

2370 PRINT "O RESULTRDO DOS DRDO 

5 E.-." 

23S0 PRINT AT 5.1G;D1 

2390 PRINT AT 10.10;D2 

24.00 RETURN 

2410 SRUE "CREPg" 

24-20 GOTO 1000 

2430 STOP 

o 



PROGRAMA DO LEITOR 

Tabela Price 



Samuel Ejchel 



Como sugestao e complementacao ao problems do 
Ministro, queria lembrar que a conhecida Tabela Price, 
muito usada em neg6cios imobiliaVias, e justamentecal- 
culada com base em capital izapaa instantineas. Assim o 
programinha anexo "Tabela Price" (fig. 1) pode ainda 
ser de utilidade pratica para corretores, e merece ser di- 
vulgado. Com ele pode-se calcular, inclusive, a taxa para 
fracoes de ano, se "entrarmos" com N sendo a fracao do 
ano. 

Exemplo: para achar o fator da Tabela Price para a 
prestacSo que amortize uma dfvida em 10 meses, en- 
trariamos com N = 10/12. Note-se porem, que os resul- 
tados sao bastante pr6ximos, mas nao coincidem exata- 
mente com os tabelados. valor da "taxa ano" deve ser 
dado como urn numero decimal, ou seja, se a taxa for 
9% a.a., o valor a alimentar sera" .09. 




5 


REM TflBELR PRICE 


10 


PRINT 


"TRXfl ANUAL=' 


P0 


INPUT 


I 


30 


PRINT 


I 


40 


PRINT 


"PNOS="; 


50 


INPUT 


N 


B0 


PRINT 


N 


70 


PR INT 


"T.PRIC£= * ; 


80 


PR INT 


EXP CI*NS *(Xj 



+1/12) ** (12*N3 I -1) 

EXEMPLO: 

TRXR RNURL = . £59 

ANOS=3 

T .PR ICE a .031S317S7 

fig. 1 



12) / f. ( 11 



O 
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PROGRAMA DO LEITOR 

O TK no Direito Trabalhista 
e Civel 



Dr. Joao Carlos Normanha Salles 



Os programas sao apticativos tanto para a area de Di- 
reito Trabalhista quanto CiVel, pois uma das maiores di- 
ficuldades dos advogados militantes e a realizacao da li- 
quidagao processual, ou seja, transformar o direito reco 
nhecido pela justica de seus clientes no correspondente 
em dinheiro a ser recebido da parte condenada. 

Quando o usuario fornece a data do ajuizamento, a 
data presente, o valor da parcela, o programa aplica to- 
dos os dispositivos legais para atualizacao desta parcela. 
Poster iorrnente, quando nao houver mais parcela alguma 
a ser atualizada, o programa oferecera um resumo deta- 
Ihado de todas as atualizacoes que foram feitas no mes- 
mo processo e ainda a quantia a ser recolhida a ti'tulo de 
imposto de renda retido na fonte para Receita Federal. 

fig, e 1 

i-IES s 13. RNO = 1382 

■JUR03 CRLCULflDOS EM 2 ME5E5 

principal = cr* ieaese 
•:ndice = 1.7 



URLOR RTURL = CR* i730SQ 
"flXfl DE 1 POR CENTO 
JUROS = CR$ 1700 
URLOR TOTRL CR* 171700 



DQ PRIHCIPflL =CR* 220006 
DO CORRIGIOQ = CR$ 353000 
DOS JUROS = CR$ 92S8 
HWi »CR| 377200 

I.R.eDRRF3= CR$ 4-59 



fig. 




1 REM 

2 REM 

3 CL5 

4 PRINT 
"4LHI5TR" 

5 PRINT 
10 PRINT 

EU LINE> " 
20 INPUT 
30 PRINT 
4-0 PRINT 

EU UINE>" 
50 INPUT 



"TRfiBftLHISTfl" 
DR. J C NORHRNHR 



5RLLE& 



'RTUfiLIZflCRO TRRP 



"TECLE HES RTURL E <N 



R 



£0 
70 
S0 

90 
93 
95 

100 

110 
> E 
120 

13Q 
14-0 

Q E 
150 
160 
165 
170 

RNO = 
180 
190 
200 

i-iTG 



PRINT 

PR INT 

PRINT 

"; B 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 
PRINT 
PRINT 

INPUT 

PRINT 

PRINT 

PRINT 

"j 

PRU 

CL5 

PRINT 



'TECLE RNO RTUAL E <N 



"COMFIRR: MESi 



"TECLE 

<HEU 
C 



HE9 ft 



RdUIZRHENT 



"TECLE RNO RJUIZRHENT 

<NEU LINE)" 
D 



"CONFIRR: ME5= 



E 200 

RT 19,6, 
PRRfl RTURLIZRR 



TECLE OS DRDOS 
E <N£U LINE>" 



•Jfl ESTOU PRO 
RS PRRCELR5 : 
SOLICURDOS 



202 
204. 

236 
208 
210 
320 
330 
340 
OS© 
360 
570 
3S0 
390 

4-00 

410 
420 
430 
>ROS 
440 
■JROS 
450 
460 
470 
4S0 

fig. 1 



LET Q=& 

LET R=© 

LET 5=0 

LET T=0 

PAUSE 200 

CL5 

LET E= i tB-DJ 



*12> + Vfi-O 



PRINT "HES ?" 

INPUT F 

PRINT RT 0,4;" = **;F 

PRINT RT 0,15; % "ftrND ?" 

INPUT G 

PRINT RT 0,19;" - ";G 

LET H=t(B-G» *I2) +(H-F) 

IF H>E THEN LET I=E 

IP E>=H THEN LET I=H 

IP 1=1 THEN PRINT RT S,0; " 

CRLCULflDOS EH 1 HES" 

IP I>1 THEN PRINT RT 2,0;" 

CRLCULflDOS EH ";I;" MESES" 

PRINT RT 4 ,0; "PRINCIPRL f" 

INPUT J 

PRINT RT 4,1S;" = CR* " ; U 

PRINT RT 6,0;" INDICE f m 
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*5nfflr INPUT K 

50© PRINT RT 6,7;" = " ; K 

510 PRINT fiT 8,0;" 



520 LET L=INT ( 100* f JtK) ? /100 

530 PRINT RT 10 , 0; "URLOR RTURL 
a CR* ";L 

54.0 LET M = INT C < 1/2) * (L> * xl00 

5*5 LET 0=1^2 

550 PRINT RT 1+ t 0; "JUROS m CR* 
1 ;M 

555 PRINT RT la.^'TflXH DE " ; O; 
1 POR CENTO" 

560 LET N=L+M 

570 PRINT RT 16,8; "URLOR TOTAL 

:;r* "jn 

580 LET Q=G+J 

590 LET R=R+L 

600 LET 5=S+H 

610 LET T=T+N 

620 LET U=INT (5*0.05) 

S30 PRINT RT aC,gj " 



64-0 INPUT 2* 

650 IF Z*="5" THEN GOTO 320 

660 IF Z*="N" THEN GOTO 700 

700 CLS 

710 PRINT RT a . 1 1 : -■■*-**■ fHW« '- 

720 PRINT RT 2.0; " mSSSB&mr 

730 PRINT RT 4-, 8; "DO PRINCIPAL 

=CR $ " " O 

7+0 PRINT RT 6,0; "DO CORRIGIOO 

— CRt " " R 

~750 PRINT RT & t Qn "DOS JUR05 = C 

R* ";S 

760 PRINT RT 10 , ; "^gffi9=CR$ 

770 PRINT RT 14. , 0; " I . R . (DARFl = 

CRt ";U 

780 PRINT AT 2 O.0;" W«WWdW^ 

790 INPUT Yt 

800 IF YS="5" THEN GOTO 3 

810 IF Y*="N" THEN CLS 

820 PRINT RT 10, 10; "FIH" 

fig. 1 

programa seguinte diz respeito a atualizagao de pro- 
cesses ci'veis, que recentemente pela lei 6899 de abril de 
1981 passaram tamtam a ser objeto de corregao 
monetaria. Esta eorreqao 6 devida somente a partir da vi- 
gencia da lei segundo regulamentagao feita. Por esta ra- 
zao o programa esta, inclusive, em obediencia a este dis- 
positive legal preparado para rejeitar informacoes ante- 
riores a vigencia da lei (fig. 2). 



TIES 12 RNO 19SS 
JURG5 NO PERIODO DE S HESE5 
MR THXH DE 2 . S POR CENTO 
QRTN Nfi EPOCR = CR* 2880 
QRTN RTURL = CR* 4-000 
PRINCIPAL DE CR* 100000 

*****•#**»*•*»*♦*****■»•****■#*-»-*»-*» 

URLOR RTURL CR* 14.2857.14- 

JUROS URLEM CR* 3571.4.2 

SOMA CR* 14-64.28.56 



DO PRINCIPAL a CR* 200000 
DO CORRIGIDO = CR* 34-2857. 14- 
DOS UUROS = CR* 8571.42 

S*gHEHB=CRi 3514-28.56 
OU 87.8571 ORTN 

HONORRRIOS DE 50 POR CENTO 

NO URLOR DE CR* 175714.28 OU 

4-3.9285 ORTN 

COH I.R. DE CR* 8785.7 

E Lieu TOO DE CR* 166928.58 

fig. 2 
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LIGUE-SE A 
INFORMATICA 




f*c* cdmo os 
funcionArios da 

AlCAN. XEROX, 

SEARlf. COPAS, 

INTILPA, DARLING. 

AIR SERVICE: 



HATRICULE-SE NA 

S.O.S COMPUTADORES. 

CURSOS DE 



BASIC e COBOL. 

• Numero limitado de alunos por 

classe • 1/3 de todas as aulas com uso 

direto dos computadores. inclusive nos cursos de 

Cobol • Piofes sores aha men te qualifies dos ■ Cursos 

aposttiados e apresentados com transparencias • Modemas 

instalacoes com varios equlpamentos Dismac, ProlAgic*, 

Sysdlt* entre outros • Precos extremamente acessfvels. 



o* 



COMPUTADOflES 

NUCLEO I 

Av.Pacaembii, 1.280 
Fones 6G 7656/66 1513 



A NOVA MANEIRA DE 
APRENDER A PROGRAMAR 

N0CLE0 11 

Fl.Tomai Carvelhal, 3S0 
(Proximo Esta^ao Matrd Paraisol 
Fone: 570 6097 
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1 REM "CIUEL" 

2 REM DR . «J C NORMANHA SflLLES 

5 CLS 

6 PRINT " RTUflLIZflCftO CIV 



EL* 



10 PRINT 

20 PRINT 

NEU LINE}" 

30 INPUT 

40 PRINT 

S0 PRINT 

NEU LINE > " 

60 INPUT 

70 PRINT 

80 PRINT 

AND ";B 

30 PRINT 

100 PRINT 
E 

110 INPUT 

120 PRINT 

130 PRINT 
Q E 

148 INPUT 

150 PRINT 



■TECLE MES ATUAL E 



"TECLE RNO ATUAL E 



"CONFIRA: MES ';A; 



"TECLE MES AJUIZAMENT 

<NEU LINE>" 
C 

"TECLE RNO AJUIZAMENT 
<NEU LINE>" 



390 PRINT RT 4,0;"NR TRXA DE "; 
„j - " pQp CENTO" 

lea PRINT RT 6,0; "ORTN NR EPOCP. 

= CRJ "?" 

4-10 INPUT K 

420 IF K<877.86 THEN LET L=877. 
35 

435 IF K<8?7.86 THEN PRINT RT 6 

30; "877.86 (A/81) " 

4.30 IF K>877.86 THEN LET L=K 

4-4-0 PRINT RT 6,20;L; 

4-50 PRINT RT S , 0; "ORTN RTUflL = 
CRffc " " M 

4.70 PRINT RT 8,17;M 

480 PRINT RT 10,0; "PRINCIPAL DE 

CR* ?" 

490 INPUT N 

500 PRINT RT 10.17;N 

510 PRINT RT 12,0j "i*********** 

S20 LET Q=INT ( 100* (N*M) /L) ,100 

530 PRINT RT 14- . 0; "URLOR RTURL 

^R* ';£> 

54-0 LET P=INT (Q*U) /100 

^550 PRINT RT 16,0; "JUROS URLEM 

560 LET 0=0+P 

570 PRINT RT 18,0; "SOMA CR* " ; Q 

572 LET R=R+N 

374; LET 3=<3+£> 

576 LET T=T+P 

578 LET U=U+Q 

5S0 PRINT RT 20,0;" 



THEN GOTO 260 
THEN GOTO 650 



160 PRINT "CONFIRR: 
RNO ";D 



MES "; C; " - 



'URLOR ORTN RTURL = C 



ESTOU PRONTO PARR CO 



'PRRCELRS. TECLE OS D 



FOREM SOLICITRDOS E 



170 PRINT 
IBS PRINT 

R«"; 

185 INPUT M 

186 PRINT M 

187 PR INT 
189 PAUSE 203 
130 PRINT 
195 CLS 
200 PRINT 

RRIGIR AS" 

210 PRINT 

220 PRINT 

ADOS OUE " 

230 PRINT 

240 PRINT 

;NEU LINEi" 

242 LET Rsfl 

244 LET S=© 

246 LET T=0 

248 LET U=8 

250 PRUSE 330 

260 CLS 

270 PRINT RT 0,0; "MES ?" 

280 INPUT E 

290 PRINT RT 0,4; E 

300 PRINT RT 0,10; "RNO 7" 

310 INPUT F 

320 PRINT RT , 14; F 

330 LET G= ( 16-FJ *12J + (A-E) 

340 LET H= ( (B-D) *12) + Cfi-C> 

350 IF H>=G THEN LET I=G 

355 IF H<=G THEN LET I=H 

360 IF 1=1 THEN PRINT RT 2,B;"U 

URGS NO PERIODO DE UM MES" 

370 IF I>1 THEN PRINT RT 2,0; "U 

UROS NO PERIODO DE "; I; " MESES" 

380 LET J =1/2 



|=CR* 



590 INPUT Y* 

600 IF Y$="5- 

610 IF Y* = "N* 

650 CLS 

660 PRINT RT 0,12; 

670 PRINT RT 2,0, "|_ 

680 PRINT RT 4,0; "DO PRINCIPRL 
"= CRS " : R 

690 PRINT RT 6,0; "DO CORRIGIDO 
= CR$ ";S 

700 PRINT RT 8,0; "DOS JUROS = C 
3* ";T 

710 PRINT AT 10,0; "| 

■; u 

720 LET REsINT f t 10000*U) /M> / 10 
300 

730 PRINT AT 12,0; "OU ";AE;" OR 
TN" 

735 PRINT AT 13 , 0; " ******** *** * 
******************#*" 

740 PRINT AT 14,0; "PERCENTURL H 
ONORRRIO 7" 

758 INPUT U 

760 PRINT AT 14 , 0; "HONORRRIOS D 
E "*;U;" POR CENTO" 

770 LET RB=INT (U*U* /100 

780 LET RC=INT (RB) *0 . 05 

790 LET AD=INT ( (10000*RB) /H) /l 

0000 

800 PRINT RT 15,0; "NO URLOR DE 
CR$ ";RB; " OU" 
810 PRINT RT 16,0;RD;" ORTN" 

815 PRINT RT 17,0; "COM I.R. DE 
CR % " ; RC 

816 LET X=AB-AC 

817 PRINT RT 18,0; "E LIOUTDO DE 
CRi» " ' X 

820 PR I NT RT 20,0; " 



S30 INPUT ZS 

840 IF Z*="S" THEN GOTO 5 

850 IF Z*="N" THEN CLS 

860 PRINT AT 11 , 11; "TIM" 



Ambos os programas contam os juros a partir da data 
de ajuizamento da acao. 
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NOVIDADES 

TPLAK AMPLIANDO 
O UNIVERSO DO TK 



Flavio Rossini 



computador surge para auxiliar o homem, como 
uma maquina que nao substitui seus musculos mas sim 
seu c^rebro, realizando tarefas complicadas e repetiti- 
vas, executando calculos infalivelmente e com veloci- 
dades fantasticas, deixando para o homem tarefas mais 
nobres. 

Sem duvida o que mais contribuiu para a populariza- 
cao dos computadores foi o aparecimento dos compu- 
tadores pessoais, os quais surgiram as centenas ... e no 
meio deles, apareceu urn pequeno, discreto, simpaticoe, 
principalmente, acessi'vel a todos: o TK. . . Assim, ele 
comecou a fazer parte de muitos lares pelo mundo afo- 
ra, quase sempre com o seguinte pensamento: TK, o 
rneu primeiro computador. , . Mas ele e orgulhoso. Ele 
diz: "se os outros computadores podem tocar musica, eu 
tambem posso. Se os outros podem fazer desenhos com- 
plicados, eu tambem posso. Posso ate comandar o fun- 
cionamento de outras maquinas ou me comunicar por 
telefone com urn dos meus 2.000.000 de irmaos. Posso 
fazer tudo que qualquer outro faz. 

De fato, apesar de nao ser tao rapido e tao imponente 
ele tem o mesmo cerebro (CPU) que os "grandes", al^m 
de uma grande vantagem; 6 acessi'vel, em termos de pre- 
co, o que o tornou o computador mais vendido da His- 
t6ria. . . Nao so, mas ele e versstil podendo crescer junto 
com sua imaginacao para fazer mil coisas. O truque esta 
nas conexoes traseiras: atualmente, voce ja pode ligar a 



impressora e a expansaa da memoria. Mas e se voce pu- 
desse ligar urn circuito para fazer sons, ou desenhos, ou 
ate" mesmo faze-!o falar? Ou comandar aparelhos exter- 
nos, um mini-robo, talvez?. . . Ou simular que tem gente 
em casa quando voce vai viajar, para enganar os ladroes' 
Tudo isto ja e possi'vel com o surgimento dos perifericos 
TplaK. O que vem a ser eles? Sao placas de circuito im- 
presso que voce conecta diretamente ao seu TK e que, 
aliadas a sua imaginacao, permitirao ao seu microcom- 
putador a realizacao de facanhas, as quais ele era INJUS- 
TAMENTE julgado incapaz de fazer. 

Vamos este mes comentar tres placas bastante interes- 
santes: 



a) placa de "beep" (BPO-TX3), que produz um sinal so- 
noro ao toque da tecla oupor comando de programa. 

b) placa de entrada/sai'da (I/0-TX2), que permite o co- 
mando de dispositivos externos, envtando e receben- 
do sinais bina>ios. 

c) placa de caracteres (CHR-TX4), que permite criar no- 
vos caracteres para o TK. 

A primeira delas produz um sinal sonoro cada vez que 
alguma tecla e pressionada, permitindo maior facilidade 
para a insercao de programas no computador; alem dis- 
so, ao fazer em SAVE ou LOAD, o "beep" toca durante 
a passagem dos dados do gravador para o computador e 
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vice-versa, parando no final, permitindo a voce executar 
outras coisas enquanto aguarda a passagem do programa. 



voce dirige um aviao que deve atingir urn alvo, produzin- 
do um sinal sonoro ao atingi'-lo. 




FIGURA 1 



PLACA BPO TX3 - SONORA BIP 

Mediants sonorizaeao bip, assegura automaticamente ao usuario a entrada 
do dado correspondent b a tecla digitada. Tambem sonoriza bip por progra- 
macio. ou seja, "bipa" nos mementos desejados, durante a execucao do 
programa. Auxilia o uso dos comandos SAVE e LOAD, interrompendo o 
sinal sonoro ao final das operacoes. 



Finalrnente, este "beep", que pode ser ligado edesli- 
gado a vontade, pode tambe'm ser acionado pelo proprio 
programa, . . Imagine um joguinho onde voce faz com 
que o "beep" toque sempre que um aviao atinge um 
aivo, E ja que falamos em jogos, podemos falar sobre a 
segunda placa; ela permite comandar (iigar ou desligar) 
ate' 8 dispositivos externos quaisquer atraves do seu pro- 
grama. ligamento e sinalizado atravfe de 8 leds. 

Alem disso, ela possui 8 entradas para receber smais 
externos. Esquecamos, por enquanto, o comando de dis- 
positivos externos e vamos pensar apenas nos LEDS. 
Que tal se no "joguinho do aviao" os leds simulassem 
um painel de controle: falta de combustivel, vento mui- 
to forte, tiro efetuado . . . Cinco das 8 entradas pode- 
riam ser utilizadas para um joystick que comanda a di- 
recao do aviao, duas outras entradas para o acelera- 
dor. . . Assim, associando essas placas com a de "beep", 



FIGURA2 



PLACA I/O TX2 - ENTRADA/SA1DA 

Apresenta oito entradas e oito saldas controiadas pelo usuario por progra- 
macao. Possibilita o comando de aparelhos eletricos e/ou aletronicos, tais 
como eletro-dom^sticos, motores eletricos, fontes de alimentacao etc. Per- 
mite, inclusive, o comando de maquinas industrials corno, por ejtemplo, um 
torno-revblver. Admits a montagem de vsrias similares em serie, aumentan- 
do proportional mente o numero de entradas e de sai'das de controle. 



Naturalmente, usando a imaginacao pode-se chegar 
aos mais altos ni'veis de sofisticacao. Com a ajuda de re- 
16s, pode-se ate automatizar uma maquina que tenha 
motores, indicadores de fim de curso, enfim, quase um 
mini-robo 

Com esta placa, o TK pode Iigar motores, dispararsi- 
nais de alarme, e ser programado para execugao de va- 
ries tarefas. 

E que tal se esta placa for usada para Iigar e desligar 
"aleatoriamente", 8 luzes da sua casa enquanto vocees- 
tiver viajando para enganar os ladroes? Ou comandar o 
seu gravador para facilitar o SAVE e o LOAD? Ah, e se 
8 entradas e 8 sai'das forem poucas, varias placas (ate 
256) podem ser ligadas ao TK, cada uma podendo co- 
mandar 8 sai'das e receber 8 entradas. 
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FIGURA3 

PLACA I/O TX2 - ENTRADA/SAIt>A 

Placa TX2, momada com placa MB2 TX1 (Ptaca MSe), em computador 
TK8S. 

Mas, voltando ao joguinho, se voce quisesse um aviao 
mesmo na tela e nao apenas um desenho utilizando os 
caracteres normais do TK? Ou se voce quisesse jogar xa- 
drez, utilizando o desenho real das pecas na tela e nao 
apenas suas iniciais? Ou escrever utilizando letras minus- 





FIGURA4 

PLACA CHR TX4 - CARACTERES 

Transforms os caracteres da I6gica Sinclair em caracteres criados pelo usua- 
rio E acomoanriada por programs em fita cassete, possibilitando sen uso 
imadiato. Equipada com memdria de 1 Kb para a armazenagem dos caracte- 
res criados pelo usuario, possibilitando sua utilizacao am diferemes progra- 



culas, ou letras gregas, formulas qui'micas . , . , quern sa- 
be fazer um jogo de cartas e poder desenhar os quatro 
naipes? Tudo isso e possi'vel com a placa de caracteres 
que permite a criacao de qualquer caracteres a sua esco- 
Iha. Esta placa possui uma mem6ria RAM na quat voce 
pode coiocar os modelos dos caracteres que deseja. 

Naturaimente, "compondo caracteres", voce podera^ 
ate fazer desenhos de alta resolucao. . . 




FIGURA5 

PLACA CHR TX4 - CARACTERES 

A foto mostra uma aplica;ao da Placa CHR TX4 Neste caso, o usuario 
usou a criacao de navos caracteres para desenhar na tela essa cabeca de ca- 
valo. A montagem da CHFI TX4 6 sabre uma Placa MB2 TX1 (Placa MSe) 
conectada a um computador TK82-C. 

Realmente estas placas ampliam o ja" gigantesco uni- 
verso do TK, tirando qualquer "complexo de inferiori- 
dade" que ele pudesse ter em refagao a seus irmaos 
maiores, 

O 
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CURSO DE B©HD(C] TK 



AULA 3 



Pterluigi Piazzi 
Flavio Rossini 



Vamos aprender agora uma funcao muito irtteressante 
que possibilita o computador "chutar" numeros; para 
entende-la, imagine que dentro do computador existam 
INFINITAS cartas, cada carta possuindo um niimero 
compreendido entre e 1 ; se voce ordenar: 



PRINT RND 



(NEW LINE) 



computador escrevera o valor da primeira carta. 
(Note que RND e uma fungao e portanto voce deve mu- 
dar o cursor para Q e apertar a tecla T}. Anote este 
valor num pedaco de papel. Faca novamente: 



PRINT RND 



Anote o novo valor (que corresponde a segunda carta) 
e repita a operacao; voce tera entao o valor das primeiras 
tres cartas. Desligue o computador; ligue-o novamente e 
repita a operacao; voce obtera novamente as primeiras 3 
cartas. No entanto, existe um comando que faz com 
que o computador "CHUTE" qual a primeira carta que 
ele deve escolher deste monte INFINITO, estando as 
pr6ximas em seguida; dessa forma, voce obtera sempre 
sequencias diferentes. Este comando e a KEY-WORD 
RAND; faca 



RRND 



(NEW LINE) (na tecla T) 



e a seguir execute a operacao acima. Desligue e ligue o 
computador faca RAND e repita. Desta vez os numeros 
serao diferentes (Se, por coincidencia do destino, isto 
nao ocorrer, repita a operacao. Dificilmente voce ira" 
conseguir isto 3 vezes seguidas. . . ). 
Ordene agora o seguinte: 



PRINT 1©0*PN& 



ora, o que voce espera obter? Novamente um numero 
"chutado" so que desta vez entre e 100, nao mats en- 
tre e 1. 

Se tirarmos a parte INTEIRA deste numero, podere- 
mos usa-lo para jogar na LOTO. Para isto, existe a fun- 
cao INT (tecla R); 

PRINT INT <100*RND) 

Assim, obt^m-se um numero entre e 99. 

Faca isto 5 vezes e voce tera 5 numeros para jogar na 
LOTO essa semana. Vamos entao agora "programar" o 
computador para que ele "execute" essasordens? Colo- 
que entao o seguinte programa: 



LOTO' 



10 RRND 

20 PRINT 

30 PRINT 

4-© PRINT INT 

50 PRINT INT 

&0 PRINT INT 

70 PRINT INT 

30 PRINT INT 



tRND*10S! 
(RND a 100) 

fRMD*100) 
tRND*lSe) 



execute-o diversas vezes (RUN e NEW LINE). Cada vez 
em que ele for executado, ele pega as pr6ximas 5 cartas 
com numeros entre e 1, multiplica-os por 100 e "des- 
preza" as casas depois da vi'rgula; assim, cada vez, voce 
tera 5 numeros I NTE I ROS entre e 99. 

Observe que tivemos que repetir 5 vezes a mesma ins- 
trucao; imagine se precisassemos repeti-la 100 vezes. 
Nao seria muito agradavel ter que fazer isto. Felizmente, 
existem duas KEY-WORDS no TK que permitem orde- 
nar ao computador que ele execute diversas vezes uma 
(ou mais) instrucoes. Para isto, imagine quealguem peca 
para voce repetir 5 vezes uma dada palavra; para fazer is- 
to, cada vez que voce diz a palavra, voce deve estar 
"contando" em algum lugar da sua cabeca ("memoria") 
o numero de vezes que voce a repetiu. Da mesma for- 
ma, se desejarmos que o computador repita uma dada 
instrucao, precisamos dizer em que VARlAVEL da me- 
moria ele pode CONTAR o numero de vezes em que ele 
a repetiu. A estrutura deve ser a seguinte: 

, 



d 
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- FOR variavei = nP tnicial TO nP final 
INSTRUCOES A SEREM REPETIDAS 

— NEXT variavei 



As Key Words FOR e NEXT estao nas teclas F e N 
respectivamente; o TO esta na tecla 4 (nao adianta escre- 
ver as tetras T e 0; deve ser SHIFT 4}; assim, o programa 
anterior poderia ser escrito da seguinte maneira: 



10 RRND 

£0 PRINT "LOTO" 

30 PRINT 

4-0 FOR 1=1 TO 5 

50 PRINT INT (100*RND) 

60 NEXT I 



Note que usamos a variavei I para fazer com que ele 
contasse de 1 ate 5. Lembre-se sempre entao: para repe- 
tir uma ou mais instrucoes elas devem estar ENTRE urn 
FOR e urn NEXT. A este tipo de estrutura chamamos 
LOOP de repeticao. Experiments entao executar o pro- 
grama. Que modificacao voce devera fazer se quisesse 
obter 1 numeros e nao 5? 

Neste ponto, varias qbservacoes sao necessaries: 
a) ao terminar um loop de FOR-NEXT, a variavei con- 
tadora estara com um valor de uma unidade maior do 
que o valor final da instmcao de FOR. De fato, experi 
mente fazer agora o seguinte comando direto: 



PRINT I 



(NEW LINE) 



b)a variavei contadora, ao contrario das variaveis usadas 
com a instrucao LET pode ter somente uma letra. Com 
a instrucao LET a variavei pode ter quantas letras quiser- 
mos, inclusive numeros, desde que o primeiro caractere 
seja uma letra. 

c) a funcao INT fornece como resultado o numero intei- 
ro de valor imediatamente inferior ao seu argumento; 
assim temos: 

INT 5.76=5 

INT -5. 76 =-6 

d) numa expressao matem^tica, todas as funcoes (cursor 
Q) tem pnoridade maxima; assim, por exemplo, INT 
3.4* X e diferente de INT (3.4* X). No primeiro caso, 
sendo a funcao prioritan'a com relacao as demais opera- 
tes, teremos: 

INT 3.4-*X=s3*X 

Agora, retire as linhas 10, 20 e 30 do programa e 
substitua as linhas 40 e 50 de tal maneira que seu pro- 
grama flque: 



40 FOR I=a TO 50 
50 PRINT I 
60 NEXT I 



Execute o programa. Veja, voce ordenou que ele es 
crevesse a pr6pria variavei onde ele esta CONTANDO. 
No entanto, como ele sO tem 22 linhas disponi'veis, irao 
aparecer na tela os numeros de 1 a 22. Mas nos queria- 
mos que ele contasse ate' 50; ora, basta manda-lo conti- 
nuar. Pressione: 



CONT 



(tecla C)e NEW LINE 



e veja o que acontece. Repita novamente (quando o pro- 
grama parar) ate obter os 50 numeros. 

Vejamos agora como executar o programa anterior 
sem que ele pare. Note que os numeros sao "impressos" 
de cima para baixo, parando ao chegar no fim da tela; 
existe um comando que faz com que os numeros sejam 
escritos de baixo para cima sem interromper o progra- 
ma. Este comando e a KEY-WORD SCROLL (tecla B) e 
ao ser colocado ANTES do PRINT, ele simplesmente 
"rola" a tela para "cima", assim acrescente a linha 45; 

4-5 SCROLL 

e execute o programa, Veja o efeito. Perceba que para 
cada PRINT que colocarmos e necessario um SCROLL; 
experimente acrescentar mais duas linhas ao programa 
de maneira que ele fique: 



40 FOR 1=1 TO 50 

4.S SCROLL 

50 PRINT I 

53 SCROLL 

SB PRINT "PRZ" 

60 NEXT I 



Se voce nao colocar o segundo SCROLL, o programa 
nao funcionara Execute entao o programa. Se voce 
desejar "para-lo" antes que ele termtne (nao vale desligar 
o computador) basta apertar a tecla BREAK (a mesma 
do SPACE). Para continuar, e so apertar CONT; note 
que este ultimo sempre LIMP A a tela antes de mandar 
continuar o programa 

Neste ponto, podemos falar um pouco sobre os nume- 
ros que aparecem no canto inferior esquerdo da tela 
quando o programa para; o numero a esquerda indica o 
"por que" do programa ter parado; o numero a direita, 
indica a linha onde o programa parou. Assim, o cddigo 
indica tudo OK; se voce deixar o programa acima ter- 
minar "sozinho" voce obtera o codigo: 

0/60 

(tudo OK; programa parou na linha 60). 

codigo D indica que o programa parou devido a um 
BREAK; se voce parar o programa assim. ira obter; 

D / numero que depende do instante em que 
voce apertou a tela 

t> 
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Estes codigos aparecem no fim do manual do TK; no 
decorrer do curso, procuraremos analisa-los todos. 

Vamos agora relembrar o efeito do ";". Retire as li- 
nhas 45 e 53 e, a seguir, modifique a linha 50 para: 

50 PRINT I; 

e execute o program'a. 

A seguir, acrescente urn; tambem no final da linha 56: 

S6 RRXWr "PftZ"; 

Lembre-se bem do efeito do ";" que e informar ao 
computador que o prdximo PRINT devera ser feito ao 
lado da ultima coisa que foi impressa. 

Vamos melhorar um pouco a tela, modifique as linhas 
50 e 56 de tal maneira que o programa f ique: 



4-0 FOR 1=1 TO 5© 

50 PRINT Ti " "; 

55 PRINT "PRZ "; 

S© NEXT I 



Lembre-se que para obter o espaco em branco deve-se 
apertar a tecla SPACE. Apos executar o programa 
apague-o (usando NEW) e vamos introduzir uma nova 
funcao: TAB (letra P} que, analogicamente a uma m3- 
quina de escrever, faz uma tabulacao, ou seja, faz com 
que a impressao comece na coluna que desejarmos; ex- 
perimente fazer: 



10 FOR 1=1 TO 50 
20 PRINT TP.B 10, I 
30 NEXT I 



Note que os numeros sao escritos a partir da coluna 
10 que aconteceria se modif icassemos a linha 20 para: 

2@ PRINT TR6 I_: 1 

Faca esta modificacao e veja o que ocorre. Voce esta 
usando uma variavel para fazer a tabulacao. Acrescente 
entao a linha 15: 

15 5CROLL 

e note o efeito. Note que quando o argumento do TAB 
for maior que 31, o computador "da a volta" para reco- 
mecar a escrever no im'cio da tela (para perceber isto no 
19 programa voce devera fazer dois CONTs). Para fir- 
mar bem o efeito do TAB e do SCROLL, altere nova- 
mente a linha 20: 



SB PRINT TRB XiljTRB 12*1} 



•X' 



guir retirando-a. (Neste caso, nao esqueca do CONT). 

Perceba que se o argumento da funcao TAB nao for 
inteiro, o computador automaticamente calcula a parte 
inteira para fazer a impressao na coluna certa. mesmo 
e valido para a funcao AT 

Vejamos agora o efeito que a "," (vi'rgula) causa na 
impressao'; modifique a linha 20 de tal maneira a termos 
o programa: 



10 FOR 1=1 TO 5© 
20 PRINT I, 
3© HE XT I 



Note que a virgula desloca a proxima posicao de 
PRINT de 1/2 tela. que ocorre se voce modificar a li- 
nha 20 para: 

20 PRINT I,, 

Tente repetir o processo para 3, 4 e 5 vi'rgulas e repa- 
re no efeito. 

Para finalizar as "palavras novas" deste capitulo, va- 
mos supor que quisessemos uma "tela" da seguinte ma- 
neira: 



13 
IS 
1"? 

16 
15 

14- 
1-3 

12 

11 



21 

;© 



Isto pode ser feito de maneira analoga a que f izemos 
agora ha pouco para escrever naoutra diagonal, se o com- 
putador contar de 21 para 0, ou seja, em contagem re- 
gressiva; para isto faca: 



1© FOR 1=21 TO 3 STEP -1 
2© PRINT TRB Ij I 
3© NEXT I 



A palavra STEP esta na tecla E, e ela signifies de 
"quanto em quanto" o computador deve contar. Note 
que ao ser omitida como fizemos ate agora o compu- 
tador assume STEP igual a 1, ou seja, conta de 1 em 1; 
no caso, vai de —1 em — 1 ; o STEP pode ter qualquer va- 
lor: experimente muda-lo para —2. 

Finalizando, vamos apresentar um pequeno programa 
para recorder o que vimos ate aqui inclusive a funcao 



execute o programa deixando a linha 15 SCROLL e a se- AT: 
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10 RAND 






20 LET N = 


10 




30 FOR = 


1 TON 




40 LETA- 


INT(RND 1 


'22} 


50 LET B = 


INT (RND* 


h 32) 


60 PRINT AT A, B; 1 




70 NEXT 1 







Repare que a linha 40 "gera" urn numero aleatbrio 
entre e 21 e que a linha 50 um numero entre e 31 
que correspondem respectivamente as linhas e colunas 
da tela; assim iremos escrever os numeros de 1 a 10 em 
lugares "aleat6rios" da tela, Experiments a seguir subs- 
tituir a linha 20 por: 

20 LET N = 20 
E execute novamente o programa. 

Exerci'cios: 

1) Faca um programa que produza o efeito diagonal co- 
mecando a direita em cima (como no peniiltimo progra- 
ma) SEM utilizer STEP. 

2) Faca um programa que escreva varias vezes a palavra 
AMOR em video reverse (que tenha no comeco e no fim 
um caractere de SPACE tambem em video reverso) em 
diagonal, comecando no canto superior esquerdo. 



AMORI 



AMOR 



3) Faca um programa que gere 1 3 numeros aleatorios en- 
tre 1 e 3 e apresente a seguinte sai'da: 



LOTERIA 


■». 






1 






2 






2 






3 






2 






1 


> 


13 n°saleat6rios 


2 






3 






s 







aseguir, impiemente a sai'da para que ela fique assim: 



LOTERIA 



Jogo 1 
Jogo 2 



Jogo 9 
Jogo 1 
Jogo 1 1 
Jogo 1 2 
Jogo 13 



Coluna2 
Coluna 3 



Coluna 1 
Coluna 2 
Coluna 3 
Coluna 1 
Coluna 2 



Note que a palavra COLUNA nao deve aparecer deslo- 
cada nos jogos 10, 11, 12 e 13. Finalmente, estude um 
metodo para que a sai'da na tela seja: 



LOTERIA 


Col. 1 


Empate 


Col. 2 


Jogo 1 
Jogo 2 
Jogo 3 


X 


X 
X 




Jogo 13 






X 



4) Faca um programa que "encha" a tela de asteriscos 
(*) a partir da posicao 10, 10. 



«fi 



PULO 
DOSAPO 



O PQjr^s *36a "!lil."l-. **g9 $gpQ3i 




^x 



+ + + ¥ 


eeee 


+ + * + 


aeee 


>.>•■*■ 


1 ■ ■ ♦ ■ 
OD 




a ft 



O mats recente lancamento da MULTISOFT para o 
Sou TK {TK82. TK83 e TK85). 
Emocionante aventura onde voce conduzira o 
sapo desde o ponto de partida, ate uma casa vazia. 

Voce devera cruzar a auto-estrada, sem ser 

atropelado e, em seguida. atravessar um caudatoso 

rio pulando sobre tartarugas e troncos que passam fJutuando. 

Para adquirl-lo, basta enviar carta com seu nome 

e endereco comptetos. aulorizando o prazo de 

entrega de 15 dias, anexando cheque no valgr de 

Crt 5.690.00, nominal a MULTISOFT INFORMATICA 

LTDA. Cx Postal 54 121 ■ CEP01296 ■ Sao PaulO - SP 
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Flavio Rossini 

Este curso foi escrito para as pessoas que ja" estejam 
bastante familiarizados com o BASIC-TK mas que te- 
nham pouco ou nenhum conhecimento sofare linguagem 
de maquina. 

Iremos iniciatmente, introduzir o conceito de "micro- 
processador". computador como n6s conhecemos 
consiste dos segu i rites elementos principals: 

— o microprocessador (modelo Z80) 

— a memoria 

— dispositivos de entrada (teclado, joystick) 

— dispositivos de saida (vi'deo, impressora) 

— memoria auxiliar (gravador K7) 

computador pode ser comparado por analogia a um 
ser humano, s6 que ele "fala" BASIC em vez de portu- 
gues. Assim, esse "ser" tem um cerebro (queeo rricro- 
processadorl e uma mem6ria. Voce conversa com ele 
atrav^s do teclado (para enviar informacoes) e da tela 
(para receber informacoes), usando o BASIC. Acontece 
que o microprocessador NAO entende BASIC ... Ele 
entende uma I fngua muito mais simples e limitada a qual 
chamamos de linguagem de maquina. Dessa forma, parte 
da memoria do computador contem um programs escri- 
to em linguagem de maquina capaz de TRADUZIR o 
BASIC, para que o microprocessador entenda os coman- 
dos, e, vice-versa, capaz de traduzir as respostas forneci- 
das pelo microprocessador. 

Nosso intuito sera o de conseguir conversar DIRETA- 
MENTE com o microprocessador na sua propria lingua- 
gem. £ desejavel para isto que voce esteja bem familiari- 
zado com o funcionamento das instrucoes PEEK e 
POKE e com os numeros escritos em binario ou hexa- 
decimal (caso voce nao conheca estes conceitos, comece 
lendoaaulal (MICROHOBBY nb 2). 

Alem disso, vamos comecar a entender como funcio- 
na o programa tradutor, utilizando para nossos progra- 
mas aigumas subrotinas ja existentes ou valores de algu- 
mas variaveis por ele utilizadas para controle do sistema. 

VaYios programas serao apresentados e ja" na primeira 
parte do curso conseguiremos realizar um SCROLL ao 
contraVio, passando a truques para lidar com a TV e o 
teclado e finalizando com um incri'vei programa chama- 
do LIFE, cuja listagem estamospublicando neste nume- 
ro da revista. 

Estude com cuidado CADA programa e procure res- 
ponder a TODAS as questoes que acompanharn o texto 
antes de prosseguir a leitura. No final de C3da aula have- 
ra eventual mente exercfcios para serem resolvidos que 
foram feitos nao so para recorder os conceitos aprendi- 
dos mas tamb^m com o intuito de introduzir alguns 
"truques" e conceitos muito importantes. Portanto, 
sugiro que voce faca os exercfcios de cada aula antes de 
prosseguir para o seguinte. 



Seria aconselhavel que voce tivesse uma expansao de 
memoria de 16 K para que possa executar os programas 
mais interessantes deste livro, embora ela nao seja estri- 
tamente necessaria para aprender a linguagem de ma 1 - 
quina. 

Voce poderia se perguntar: o que esta linguagem tem 
para me oferecer? A resposta resume-se a duas palavras: 
RAPIDEZ e CONTROLE, e voce percebera logo mais. 

Bom, seja bem vindo ao Universo da Linguagem de 
M3quina. 



O QUE E A LINGUAGEM DE MAQUINA; 
O PROGRAMA INTERPRETADOR 

A linguagem de maquina (tambem chamada de 
ASSEMBLY) e a "lingua" que o microprocessador en- 
tende. Ela consiste, assim como o BASIC, de uma serie 
de instrucoes, cada uma das quaiscomanda o micropro- 
cessador para que ele faca uma tarefa especffica. Entre- 
tanfo, ela e uma linguagem de baixo ni'vel, o que signifi- 
ca que instrucoes complicadas como loops de FOR/ 
NEXT ou calculos de funcoes matematicas (SIN, COS, 
EXP, RND, etc.) nao sao disponfveis; pode-se usar ape- 
nas instrucoes que comandam diretamente o micro- 
processador. 

que significa exatamente "linguagem de baixo ni'- 
vel" com instrucoes que comandam "diretamente" o 
microprocessador? 

problema & que o microprocessador, por ser um 
circuito eletronico, s6 e capaz de entender dois ni'veis de 
tensao eletrica que chamamos simbolicamente de (ze- 
ro) e 1 (um). Portanto, somos obrigados a conversar 
com ele usando codigos formados por "cadeias" (se- 
quencias) de 0s a 1s, onde cada ou 1 e chamado BIT. 
Assim, por exemplo, o codigo 10000101 poderia signi- 
ficar "some dois numeros", o codigo 1010001 "pare o 
programa", etc. Alem disso, o microprocessador so e ca- 
paz de entender 8 bits (1 byte) por vez. Dessa forma, ca- 
da instrucao e cada dado deve, obrigatoriamente, consis- 
ts de um ou mats grupos de 8 bits. No caso de numeros, 
o numero maximo que podemos representar em 1 byte 
e 255. Se o numero for maior que 255 ele devera ser 
"quebrado" em 2 ou mais bytes para que o microproces- 
sador possa entende-lo. 

Acontece que para o ser humano nao e muito facil 
conversar em 0s e 1s (basta tentar imaginar uma pagina 
cheia de "c6digos" em 0s e Is). Assim convencionou-se 
que os bits seriam agrupados de 4 em 4 substituindo-os 
pelos correspondent.es algarismos em HEXADECIMAL. 
> 
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Portanto, se quisermos falar diretamente com o mi- 
croprocessador, devemos lembrar que ele s6 entende 
bits, e cada instrucao consiste em urn ou mais bytes que, 
para ma-ior facilidade de entendimento, sao escritos em 
HEXADECIMAL, correspondendo, entao, cada byte a 
doisdigitos hexadecimais (por exemplo C9, D4, 37, etc.). 
(OBS. : para quern nao esta familiarizado com as nota- 
coes acima indicadas, sugerimos novamente que, antes 
de prosseguir, leia a aula 1 , nurneros binaYios e hexadeci- 
mais, bit e byte, PEEK e POKE). 



AMEMORIADOCOMPUTADOR: ROM E RAM 

Assim como as instrucoes sao sempre divididas em 
grupos de 8 bits, a mem6ria do computador tambem e 
dividida em regioes capazes de armazenar apenas 8 bits 
cada uma. 

A memoria pode ser imaginada como uma pilha de 
"registros" capazes de armazenar apenas urn byte cada, 
sendo que cada registro tern urn endereco que, no caso 
do TK, pode ir de ate 65535 (correspondendo a 0000- 
ate FFFF em hexadecimal) (Fig. 1.1 ). 



ENDE- 
RECO 

DECIMAL 



ENDERECO 

HEXA- 
DECIMAL 




CONTECJDO 
DA 

mem6ria 




0000 


a 


1 


l 





1 


1 


1 


1 


0001 


1 





i 


1 





i 


1 


1 


0002 


1 





1 





1 





1 


1 


0003 





a 


1 


1 





1 





1 


0004 


1 


1 


i 





1 


1 





1 


0005 





1 








1 


1 


1 






CONTEUDO 
EM HEXA- 
DECIMAL 



6F 
9/ 
AB 
3b 
ED 
4E 



65530 
6553 1 
65532 
65533 
65534 
65535 



FFFA 
FFFB 
FFFC 
FFFD 
FFFE 
FFFF 



1 


1 

















1 





1 























1 














1 





1 


1 


1 


1 





1 





1 








1 


1 


1 





1 





1 





1 


1 


1 


P 





1 



01 

40 
42 
F5 
3A 
B9 



Fig. 1.1: Exemplo de como pode ser imaginada uma memoria com 
seus respectivos enderecos e conteudo, note que o conteudo de 
urn registro de mem6ria tern sempre 1 byte (8 bits) podendo ser 
representado com 2 dfgitos hexadecimais e seu respective endere- 
po 2 bytes (16 bits), podendo ser representado com 4 di'gitos he- 
xadecimais. 



A memoria 6 basicamente dividida em duas partes: a 
primeira chamada ROM (Ready Only Memory), foi pre- 
viamente gravada por processos especiais e contem o 
programa que interprets a linguagem BASIC, ou seja, 
"traduz as instrucoes do BASIC para a linguagem de rrici- 
quina. Esta regiao da memoria £ inalteraVel, nao' poden- 
do, portanto, ser escrita (apenas lidas) e nao perde nun- 
ca seu conteudo, mesmo desligando-seo computador. A 
segunda, chamada RAM (Random Access Memory) e al- 
teravel (pode ser lida ou escriga), e e onde sao armazena- 
dos o conteudo da tela de TV, os programasem BASIC 
devidamente "traduzidos" pelo interpretador (ROM), as 
variaveis dos programas e, inclusive, os futuros progra- 
mas em linguagem de maquina que faremos neste curso. 
Ela perde seu conteudo desligando -se o computador. 

Note que o programa interpretador (ou tradutor) que 
esta na mem6ria ROM e escrito em linguagem de maqui- 
na, pois o microprocessador deve ser capaz de enlende- 
lo. Entretanto, como todo programa, ele possui varia- 
veis, que devem ser, obrigatoriamente, colocadas na 
RAM (caso contrario nao seriam variaveis) Assim, ele 
reserva para si o INICIO da memoria RAM, mais precisa- 
mente os enderecos 16384 a 16508 para colocar suas 
proprias variaveis. 

Portanto, os programas que fizermos em linguagem 
de maquina deverao ser colocados em alguma regiao da 
memoria RAM, inteligentemente escolhida para que nao 
afete o andamento dos demais programas (eventuais pro- 
gramas em BASIC), a propria tela de TV ou as variaveis 
do programa interpretador. Quando programamos em 
BASIC estes cuidados nao sao necessaries, pois o progra- 
ma residente na ROM se encarrega de colocar as instru- 
coes em lugares adequados da RAM. 



HEXADECIMAL 

4 -0000 



ROM 
I 

« 



RAM 



PROGRAMA 
INTERPRETADOR 



VARIAVEIS DO PROGRAMA 
INTERPRETADOR 



PROGRAMAS 
EM BASIC 



TV 



VARIAVEIS DO 
PROGRAMA EM BASIC 



DECIMAL 



16384 



16508 



.FFFF 



LIVRE 



65535 



RAMTOP 



Fig. 1 .2: A memoria do TK — a memoria so ira ate 65535 se usar- 
mos a expansao de 64 K. 

Na pr6xima aula, veremos entao COMO e ONDE po- 
demos colocar um programa em linguagem de maquina 
no computador. 
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QUEBRA-CABEQA 

Motoqueiro no Deserto 



MENSfl 
International 




Era uma vez urn motoqueiro, nao muito inteligente, 
que vivia numa aldeia a beira do deserto. Sua rnoto tinha 
um tanque no qual cabia combustfvel suficiente para an- 
dar 300 km e na aldeia e)e tinha um total de combustf- 
vel (incluindo o da moto) suficiente para 900 km. mo- 
toqueiro nao podia transportar nenhum vasilhame con- 
tendo combust fvel, mas podia levar consigo sacos de 
pleistico vazios para enche-los com parte do combustf- 
vel do tanque. Estes sacos, enterrados na areia, forrna- 
vam um reservatorio que poderia ser usado posterior- 
mente. 

motoqueiro, apesar de nao muito inteligente, obe- 
decia fielmente as instrucoes que recebia, por exemplo 
assim: 

10 ENCHA TANQUE NA ALDEIA 
20 PENETRE 100 KM NO DESERTO 
30 FACA UM RESERVATORIO COM COM- 
BUSTIVELPARA 100 KM 

40 VOLTE PARA A ALDEIA 

50 ENCHA TANQUE NOVAMENTE 

60 VA ATE RESERVATORIO 



70 COLOQUE O COM BUST I'V EL DO RE- 
SERVATORIO NO TANQUE 

80 PENETRE MAIS 100 KM 
90 PLANTE UMA BANDEIRA 
100 VOLTE PARA A ALDEIA 



Ele cumpriria fielmente as instrucoes e acabaria plan- 
tando uma bandeira a "200 km" da aldeia gastando 
combustfvel para "600 km". 

Agora, para variar um pouco, ao inves de programar 
seu TK voce vai programar o motoqueiro. 

Lembre-se, ele s6 tern um total de combustfvel sufi- 
ciente para 900 km e no tanque da moto cabe o equi- 
valente a 300 km. 

Tente fazer o motoqueiro plantar a bandeira o mais 
longe possfvel da aldeia (regressando a salvo, obviamen- 
te). 

Quern mandar o melhor programs pars motoqueiro 
fazendo-o chegar o mais longe possfvel, recebera o pre- 
mio costumeiro e mais o tftulo de "Raposa do Deser- 
to 83". 



44 MICROHOBBY 



CHEGA 



PROBLEMAS 

Use Tig Loader { 




APENAS: 
CR$ 15.000,00 



TIG-LOADER possibilita: 

• a localizacao do otimo volume do gravador, 
facilitando a operacao LOAD. 

• DUPLI CAR qualquer programa, mesmoaque- 
les "fechados". 

• carregar (LOAD) e DUPLICAR simultanea- 
mente. 

• gravar (SAVE) em 2 gravadores ao mesmo 
tempo. 

• monitorar as operaeoes LOAD, SAVE ou 
DUPLICACAO atraves de tone. 

• filtrar as interferencias eletricas de baixa 
frequencia, que sao a causa da maioria 
dos problemasde LOAD/SAVE. 



APLICATIVOSPARATK 

TIG-SCREEN: vinte e sete rotinas de video, para incrementar seus programas! 
Inversao de video, moldura, arquivo de imagens, rotacao, scroll em quatro 
direcQes, etc... efeitos visuals incn'veis! Em linguagem de ma"quina, ocupa 
1,3Kb, ficando protegido no RAMTOP, depois e so utiliza-lo onde quizer! 
P/ 16K Com manual explicativo CrS 8.000,00 

TIG-COMP; coloque, em seus programas em BASIC, a velocidade de 

codigo de maquina. Rode-os na forma COMPILADA! Simples de usar, 

6 s6 carregar ou digitar o seu programa em BASIC e depois usar 

o TIG-COMP. Pronto! Voce tera o seu programa em linguagem de maquina em 

instantes. 

P/16K Com manual explicativo Cr$ 15.000,00 

TIG-SPEED; uma combinacao de soft e hardware, permitindoumatransferencia 
de dados micro/cassete de 4,200 bauds. Voce podera carregar ou gravar 
16 Kb em 30 segundos! Acrescenta ao micro a funcao VERIFY. Facilimo de 
operar, compoe-se de cassete, interface e manual explicativo. 
P/16e48K Preco sob consulta. 



Envie seu pedido + cheque nominal cruzado 

Prazo de entrega: 15 dias 

Pregos validos ate 10/09/83 

Despesas postais inclui'das nos pregos 

Atendemos somente por carta 




Rua Correia Galvao, 224 
CEP01547-Sao Paulo - SP 

TIG RE COM. DE EQUIP. P/ COMPUTADORES LTDA. 



QTO 


ARTIG0 


PR EQO 


TOTAL 






































TOTAL DOPEOIDO: 





SIM, desejo receber tw produtos acima reliicionodo, para o que estou anexando o cheque n- no valor 

de 

NOME 

ENDEREgO 

CEP CI DADE 

PROFISSAO 



.ESTADO 

.DATA NASC. . 



MICROCOMPUTADOR_ 
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RESPOSTA DO QUEBRA-CABEQA 



O Banqueiro e o Ministro 



Jaime Maia Neto 




Para resolver o quebra-cabecas, "0 Banqueiro e o 
Ministro", comecei por fazer o calculo do numero N, 
proposto no problems, para aigumas parti^oes P do ano. 

P = 2 N= 1,5 X 1,5= (1,5)* - 2,25 

P=4 N= 1,25 X 1,25 X 1,25 X 1,25 = 
= (1,25)* =2,44 

P= 8 N= (1.125) 8 = 2,57 



A essa altura, ja pude ver que a f6rmula generics de 

Ne: 

N= ( 1 +~) p 



onde P e o numero de partes em que esta dividido o ano. 
Acontece que a formula obtida, e muito conhecida do 
Calculo. E sabe-se que quando P tende ao infinito, o va- 
lor de N tende ao numero "e" que vale aproximadamen- 
te 2,7182818. Escreve-se: 



lim 



d+y) p = 



e m 2,7182818 



Ora, se para um numero P tao grande quanto desejar- 
mos, N nao ultrapassa 2,72, entao os juros nao podem 
ser maiores que 172%, por mats pequena que seja a uni- 
dade de tempo usada para a cobranca de juros. 

Em seguida fiz um programa (fig. 1) que mostra que 
quando aumentamos o valor de P, N tende a "e". 

P programa comeca com um P = 1; depois P = 2; 
P = 4; P = 8; P = 1 6 . . . ; mostra a unidade de tempo T 
que se esta tomando para a cobranca dos juros e o valor 
deN. 



1 REM O BRNO. E O MINISTRO 

10 LET PHRT=1000*60*60»24-*365 

as LET P=l 

30 LET N = INT ( 100S0* ( 1+1,'P J *#P 

4-0 LET T=PflRT/P 
50 SCROLL 

&© PRINT "P=:"iPj" T = "jINT T/18 
00;TRB 24-j *N = "; N 
70 LET P=PiE'2 

80 IF P/2<PRRT THEN GOTO 30 
<^0 SOROLL 
100 PRINT TRB 2;PRRT; ,, P.'T=0,001 
SEG" 

fig. 1 

Ao rodar o programa, vi que para P = 32768 (o que 
corresponde a tomar como unidade de tempo 949,2 
seg.) N ja assume o valor de 2,7182, permanecendo 
constante para valores inferiores a 949,2 s. 

Com espanto vi que o nosso TK82C nao pode calcular 
N, com precisao, a partir de carto valor de P, o que nos 
impede de calcular N para o mildsimo desegundo (ms). 

A particao do ano para o milesimo de segundo P ms e: 

P ms = 365 X 24X60X60X 1000 = 
= 3,1536 X 10 1 ' 

Como 3,1536 X 10 1 * e muito maior que 32,768, po- 
demos assumir com acerto o valor "e" para N, quando 
usamos como unidade de tempo #,001 seg. 

Agora, respondendo aos ftens do quebra-cabeca: 

A) Como o Super-Ministro toleraria juros de ate 180% e 
sabia que pela proposta do banqueiro estes nao pode- 
riam ultrapassar 172%, conclui'mos que o banqueiro fez 
papel de trouxa {nao, quern fez fomos nos! n.d.e.) 

B) capital C valera no fim de um ano aproximada- 
mente: 

2,7182818 XC 
N * 2,71 82818 

C) Log, 2,7182818 -l.pois 

e 1 - 2,7182818 
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programa pedido no quebra-cabega e o seguinte; 



1 REH 
5 DIM 
10 PRINT 
28 PRINT 
JUPOS 
30 LET 
LET 
LET 
LET 
LET 
LET 
LET 
L ET 

PRINT 
PR INI 



ROGRRMR 2 
P (9) 

"TRXR RNUflL" 
UNIDO&E 



TRXR DE 



40 

50 

60 

78 

80 

9@ 

i©8 

110 

120 

130 



P 
P 
P 



(13 =i 

ca> =£ 

C3? =* 

P <4; =12 

P <5> -365/7 

F (6 J =36S 

P (7) -P (6) *24 

P (8) =P (?.» *6© 

P C9> -P {©"; *©@ 



RIHESTRE" , 
" j , "HORR" j 

1+0 PRINT 

158 

168 
180 

178 
■J + l 

15© 

198 



'5EMESTRE" , , "T 
t * "SEHftNfi" , „ "DIP 



"RMO 1 

"KES 1 

"MINUTO", ,"££GUNDO" 

RT 3 > 15; 
PQp C=l TO 9 
LET J= ( ( i+i/P (CJ ) **P (C) -I) * 



IP J>=B.5+INT J THEN LET -J = 

PRINT INT J;TRB IS, 
N£XT C 




Nota da Redagao: ate a data do fechamento recebemos 
respostas corretas tambem de: 

WALDIR COSTA SOLA 

SAMUEL EJCHEL 

ALEXANDRE G.F. LIMA 

FAUSTO DALLARE 

JACQUES J. ABRAM 

ALLAN CHAMECKI BRIK 

LUIS GUILHERME BAROUCHEL 

ROBERTO MARQUES BEKMAN 

HERMELINDO PINHEIRO MANOEL 

CARLO FILIPOFITTI 

FERNANDO R.C. NEY MORAES 

ELOY WINTER JUNIOR 

DINEU B.A. DE OLIVEIRA 

DARIOJOSESLOMP 

TEUCLE MANNARELLI FILHO 

JOSE ISSAMU YAMADA 

AMAURI S. SOUZA 

ENIO E. KRANEN 

MARCELO P.O. GOMES 



Servico de Datilografia - IBM. Teses, apostilas e ma- 
nuals tecnicos. Teiefone: 258-8486 - Americo — SP. 

Vendo Timex Sinclair 1000 — Expansao de Memoria de 
64 K - HRG (Periferico para alta resolucao) — l/F (In- 
terface para sai'da RS-232) e Programas -Tel.: 270-3368 
(falarcomTANIOS). 

Vende-se urn TK-82C com expansao de 16 K. Tratar 
com Jose Luis - Tel.: 274-5995 - Final de semana. 



Vendo TK82-C com expansao de 16 K ou troco e vol- 
to a diferenca pelo TK85 (16 ou 48K). Preco base: 10% 
abaixo da tabela "Microdigital". Cx. Postal 177 — Join- 
ville — SC, c/ Claudio. Aceito propostas. 

Vendo um microcomputador TK82-C, uma expansao 
de 16 K, um joystick, uma fita com jogos e o livro "49 
Explosives Games for ZX-81", por Cr$ 145.000,00 - 
Joao Rogerio — tel . : 238-6978 ( R io de Janeiro)". 

Medico anestesista procura alma gemea para intercam- 
bio informatico em TK - Roberto Araujo — R. 
Uruguay, 205 - ap. 803 - Rio de Janeiro — RJ. 

Desejo trocar circuitos, informacoes e programas, 
principalmente jogos para 0TK82-C com 16K -Ricardo 
Coilorio - R. Antonio Zini, 33 - 95680 - Canela - RS. 

CP-200, vendo por Cr$ 170.000,00 e uma calculadora 
Sharp 1211 com impressora e interface para K-7 por 
Cr$ 160.000,00 (ambos com garantia) - J. Maldonado 
- Tel.: {011} 452-6617 ou 452-6835. 

TK82-C — Jogos utilitaYios e aplicativos. Vendo ou 
troco. Marco Antonio — tel. 247-4071 — Rio de Janeiro. 



MICRO BITS 

CLUBE NACIONAL DOS TK/NE/SINCLAIR 

Postal 1 2464 - 04798 - Sao Paulo - SP, 



Caixa 



Vendo computador TK-82 c/ 16K. Sistema completo: 
c/ SLOW e chave p/ vfdeo-reverso mais gravador Natio- 
nal, mais 6 fitas de programas (Microsoft) e jogos, 6 li- 
vros importados c/ truques e dicas sensacionais p/ o TK. 
Tudo p/ 180.000,00. Aceito contra-oferta. Tratar c/ 
Roberto - Tel. : 853-671 3 a noite. o 




Xadrez 

Divulgate e 
Empreendimerrtos Ltda. 



TUDO PARA A PRATICA 
- DO REI DOS JOGOS - 



Xadrez Eletroriico 
Tabu lei ros e pecas 
Mesas e relogios 
Livros e revistas 
Aulas e SimuHaneas 

Organizagao de Torneios 

Av. Brig? Faria Lima. 1644 sbl. 61 ■ 01452 ■ Sao Paulo ■ SP 
Fanes: (Oil) 81 4-9340 • 814-9539 
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COMO FAZER 
SUA ASSINATURA 



A nossa revista nao sera distribui'da nas bancas. 
Para obter seu exemplar mensal, contendo muitos 
programas para o seu TK, muitas dicas e premios 
interessantfssimos, voce devera fazer uma assinatura 
o preco anual da assinatura e de Cr$ 1 1 .800,00. 
Porem, ate 30 de setembro, manteremos o preco de 
Cr$ 9.900,00, com direito a uma fita inedita de jogos: 

Sao Paulo (2K) 

Mansao Maluca (16K) 
cujo valor comercial e superior a Cr$ 6.000,00. 

Para tanto, voce devera preencher corretamente 
o cupom anexo (nao esquecendo de assinalar o brinde 
de sua escolha), e coloc^-lo num envelope, junto a um 
cheque nominal ou vale postal a favor de MICROMEGA 
PUBLICAC0ES E MATERIAL DIDATICO LTDA , no 
valor de Cr$ 9.900,00 (oferta valida ate 30 de 
setembro) 



O envelope devera ser selado e enderecado a 

MICROMEGA P. M.D. LTDA. 
Caixa Postal 60081 - CEP 05096 
Sao Paulo - SP 



No verso do cheque escreva: 

"Desiina-se ao pag3mento de uma assinatura 
(12numeros) da revista MICROHOBBY" 



Quando este cheque for devolvido ao seu Banco 
com nosso endosso, servira de comprovante provisorio 
ate que nosso recibo seja enviado pelo correio. 

O 



O QUE ESTA 
RESERVADO 
PARA O N?4: 



POR DENTRO DO^Jf?'^^ 

Suplemento especial para o usuario do TK aprender a 

lidar com computadores compati'veis com a linha 

AP r L t. Tnarca regislrada da APPLE Corr^pulers, Inc. 

PROGRAMAS DO LEiTOR: 

O Professor — um utili'ssimo programs didatico, 
Othello - um desafio a sua inteligencia. 
i-CHING — livro das mutacoes. 

PROGRAMAS DOMES: 

Pentaspeed-como gravar e ler programas no TK82 com 
uma velocidade 5 vezes maior. 

DICAS: 

Como usar o mapa da RAM do TK. 




FITA DO MES: 

Funcoesda MICRON 



CURSOS: 

Aula n9 4 do Curso de Basic, 
Aulan9 3 do ASSEMBLY. 

PEQUENOS ANUMCIOS: 

Envie seu pequeno anuncio para ser publicado gratuita- 
mente. 

NOVIDADES: 

TK83: o novo "design", 
TK85: mais funcoes especiais. 
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PREPARE-SE PARA O 



DE UMA MANEIRA 




No NUCLEO voce pode se inscrever escolhendo as materias, dependendo de suas reais necessidades, 
aproveitando ao maximo seu tempo. 

Se o seu problema e MATEMATICA, FISICA, QUl'MICA, BIOLOGIA, GRAMATICA, REDACAO, FRANCES, 
ETC, temos os melhores professores dos melhores cursinhos de Sao Paulo, para Ihe dar urn 
atendimento INDIVIDUALIZADO. 





I 




t 



InformaQoes e inscrigoes 
para turmas de fYJYi 




t 



Hucleo 
'clei orientacao 
ejtudos 




Av. Brig. Faria Lima, 1451 ■ 3? ■ Cj. 31 
Tel.: 813-4555 - CEP 01451 - Sao Paulo SP 



Desgravador e rejuvenescedor instantaneo 



de fitas K-7 




APAGAR 
BASTA PASSAR 
A FITA IDA £ 
VOITA PELA 
A8ERTURA 




micromega 



Sistema: PASSOU... DESGRAVOU 
GARANTIA DE 5 AN0S 






JTWliriiO 

Desgrava e rejuvenesce em apenas 4 segundos, quaf- 
quer fita cassete independente de sua duracao, eliminan- 
do todos os rutdos e chiados decorrentes de frequentes 
regravacoes, 

Poupa o desgaste da fita e do gravador. 
Poupa tempo e melhora a qualtdade do som da fita casse- 
te rta reutilizacao da mesma. 

Gravando em cima de outra gravacao, a qualidade da re- 
producio e consideravelmente prejudicada, alem de criar 
confusoes, principalmente se a gravacao anterior for de 
duracad maiscurta. Desgravando com o TWIN-GO, nada 
disso acorvtece. 

TWIN-GO e indispensavel a todos os profissionais e 
3madores, usuanos de fitas cassete. 



Pedidos por carlo a 

MICROMEGA PMD LTOA. 

Catxa Postal 6O081 ■ CEP 05096 ■ Sao Paulo- SP 

anexando Cheque Nominnl ou Vole Postal, 
inclu indo mais des pesos de Irete no volar 
de Cr$ 500.00, autorizando o recebimenio 
da compra na prazo de 15 dias 







Caractensticas Tecmcas 

• Linguagem BASIC 

• 10 Kbytes de ROM 

• 16 ou 48 Ktiytes de memoria 
RAM. 

■ 40 teclas e 160 fungoes. 

• Gravagao de programas em 
fita cassete comum. 

• Input e Output de dados. 

• Video; aparelhos de TV B&P 
ou colorido. 

• FuncOes especiais 
HIGH-SPEED. 

• Som Opcional. 

■ Joystick, impressora. 

Prego de langamento; 
Cr$ 219.850,00 (16 K) 
Cr$ 289.850,00 (48 K) 
(Prego sujelto a alteragao) 
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